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ABSTRACT 

A  need  exists  for  a  set  of  computer  programs  that  can  be 
used  by  students  to  solve  elementary  digital  signal 
processing  problems  using  a  personal  computer.  This  project 
involved  the  design  and  implementation  of  ten  algorithms 
that  solve  such  problems  and  an  additional  algorithm  that 
creates  plots  of  the  various  input  and  output  sequences. 
The  two  primary  goals  of  the  programs  were:  1)  user 
friendliness  and,  2)  portability.  With  these  goals  in  mind, 
the  source  code  was  written  using  Fortran-77  and  compiled  by 
a  commercially  available  Fortran  compiler  specifically 
designed  for  personal  computers.  The  plotting  program  uses 
a  Fortran-compatible  graphics  package  that  is  also  com- 
mercially available.  The  programs,  once  compiled,  can  be 
distributed  to  users  without  the  requirement  to  purchase 
either  a  Fortran  compiler  or  a  graphics  package;  however, 
access  to  a  Fortran  compiler  enhances  the  utility  of  the 
programs. 


111 


DISCLAIMER 

The  reader  is  cautioned  that  computer  programs  developed  in 
this  research  may  not  have  been  exercised  for  all  cases  of 
interest.  While  every  effort  has  been  made,  within  the  time 
available,  to  ensure  that  the  programs  are  free  of  computa- 
tional and  logic  errors,  they  cannot  be  considered  vali- 
dated. Any  application  of  these  programs  without  additional 
verification  is  at  the  risk  of  the  user. 
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I.   INTRODUCTION 

Introductory  digital  signal  processing  courses  present  a 
wide  spectrum  of  challenging  topics  to  students  enrolled  in 
the  electrical  engineering  curriculum.  Undergraduate  level 
courses  present  the  transition  from  analog,  continuous-time 
systems  to  digital,  discrete-time  processes.  Topics  include 
difference  equations,  state-matrix  equations,  system 
transfer  functions,  frequency  response  and  the  z-transform. 
Furthermore,  the  relationship  between  the  time  domain  and 
the  frequency  domain  is  introduced  and  discrete  convolution 
is  discussed.  Graduate  level  courses  introduce  filter 
design  techniques  and  track  the  development  of  the  Fast 
Fourier  Transform  (FFT)  from  the  Discrete  Fourier  Transform 
(DFT) .  The  interrelationships  between  circular  convolu- 
tion/correlation and  the  DFT  are  discussed  and  a  brief 
introduction  to  spectral  estimation  is  given. 

In  brief,  the  transition  from  the  continuous-time  method 
of  system  analysis  to  discrete-time  methods  is  challenging 
to  most  students.  While  analytical  methods  are  covered 
thoroughly  in  the  classroom,  computer  solutions  to  problems 
reinforce  learning  by  facilitating  solutions  to  problems 
containing  long  sequences  of  data.  Furthermore,  the  digital 
computer  is  the  heart  of  digital  signal  processing  applica- 
tions in  the  real  world.    To  this  end,  therefore,   it  is 


instructive  to  present  computer  programs  that  can  perform 
many  of  the  computations  required  for  elementary  digital 
signal  processing  (DSP) . 

The  project  summarized  by  this  report  involved  designing 
a  set  of  computer  programs  that  can  be  used  in  a  laboratory 
environment  to  reinforce  the  basic  concepts  of  digital 
signal  processing.  Although  deviations  exist,  the  al- 
gorithms developed  in  First  Principles  of  Discrete  Systems 
and  Digital  Signal  Processing,  by  R.D.  Strum  and  D.E  Kirk 
[Ref.  1]  were  used  extensively  in  the  development  of  these 
programs.  The  programs  were  written  using  Microsoft  Fortran 
77  Version  4.01. -1-  This  compiler  was  chosen  because  of  its 
flexibility.  It  will  compile  Fortran  programs  for  personal 
computers  enhanced  with  a  math  coprocessor  (8087/80287)  or 
for  less  capable  machines.  The  total  project  consists  of 
ten  programs  related  to  the  solution  of  digital  signal 
processing  problems  and  an  additional  program  whic:h  produces 
2-dimensional  plots  of  the  data.  The  plotting  program  was 
written  using  the  Fortran-compatible  Graphmatics  software 
library.2  The  minimum  hardware/software  requirements 
necessary  to  run  these  programs  are: 


^-Microsoft  Corp.,  1987,  Bellevue,  Wa .  The  programs 
will  also  compile  after  minor  changes  using  Ryan  McFarland 
Fortran  Version  1.0  or  later. 

2Microcompatibles  Corp.,  1983,  Silver  Springs,  MD. 


*  A  personal  computer  with  at  least  320k  of  available 
memory. 

*  A  monitor  with  a  CGA  card  installed.3 

*  A  single  double-sided,  double-density  diskette  drive. 
The  following  options  will  either  enhance  the  flexibility  or 
increase  the  performance  of  the  programs: 

*  A  Microsoft  Fortran  Compiler  Version  4.01  or  later. 

*  A  dot-matrix  printer. 

Chapter  II  details  the  scope  of  the  programs  and  the 
general  methodology  used  in  developing  them.  Chapter  III 
provides  the  concise  development  of  each  program.  Flow- 
charts are  presented  to  provide  the  architecture  of  the 
algorithms,  depicting  their  macro-level  design.  Applicable 
equations  are  listed  for  each  computational  task  and  the 
corresponding  Fortran  implementation  is  discussed. 


3A  computer  graphics  card  is  only  required  to  support 
the  graphics  program  PLOTDAT.FOR  and  is  not  required  for  the 
other  programs. 


II.   PROGRAM  DEVELOPMENT 

This  chapter  presents  the  scope  of  the  computer  programs 
and  the  general  methods  used  in  designing  them.  The  goals 
of  computational  efficiency  and  user  friendliness  are 
addressed  as  the  two  sometimes  conflict.  Finally,  a  generic 
program  structure  used  throughout  the  software  development 
is  presented. 

A.   SCOPE  OF  THE  PROGRAMS 

The  package  consists  of  ten  problem  solving  programs  and 
a  two-dimensional  plotting  program.  Each  of  the  ten  problem 
solving  programs  is  oriented  toward  solving  a  specific  DSP 
problem.  The  title  of  each  program  and  its  corresponding 
Fortran  filename  are  listed  below: 

Problem  Solving  Programs 

1.  The  frequency  response  of  a  digital  filter. 
Filename:  DIGFREQ.FOR 

2.  The  frequency  response  of  an  analog  filter. 
Filename:  ANLGFREQ.FOR 

3.  The  Discrete  Fourier  Transform  (DFT)  or  Inverse  DFT 
(IDFT)  of  a  finite-length  sequence. 

Filename:  DFT. FOR 

4.  The  periodogram  of  a  finite-length  sequence. 
Filename:  PRDGRM.FOR 

5.  Convolution  and  correlation  using  the  DFT  algorithm. 
Filename:  CONCORDT.FOR 


6.  The  Fast  Fourier  Transform  (FFT)  or  Inverse  FFT  (IFFT) 
of  a  finite-length  sequence. 

Filename:  FFT. FOR 

7.  Convolution  and  correlation  using  the  FFT  algorithm. 
Filename:  CONCORFT.FOR 

8.  Convolution  and  correlation  in  the  time  domain. 
Filename:  CONCOR.FOR 

9.  The  iterative  solution  to  a  linear,   time-invariant 
difference  equation. 

Filename:  DIFFEQ.FOR 

10.  The  iterative  solution  to  a  set  of  linear,   time- 
invariant  state-matrix  equations. 

Filename:  STATEQ.FOR 


Plotting  Program 

11.  A  file-driven,  two-dimensional  plotting  algorithm. 
Filename:  PLOTDAT.FOR 


B.   GENERAL  METHODOLOGY  OF  PROGRAM  DEVELOPMENT 

All  of  the  programs  are  oriented  toward  engineering 
students  enrolled  in  elementary  DSP  courses.  Since  most 
engineering  students  have  had  at  least  some  experience  in 
Fortran  programming,  this  language  was  an  obvious  choice. 
The  programs  can  be  executed  without  altering  any  of  the 
Fortran  code;  however,  some  of  the  subroutines  were 
specifically  designed  to  allow  the  addition  of  Fortran 
statements  to  produce  a  desired  sequence  of  data.  This 
option  will  be  discussed  in  more  detail  in  Chapter  III. 

The  source  code  structure  of  the  algorithms  is  designed 
so  that  the  user  can  follow  the  flow  of  each  program  as  it 
performs  the  computations  required  by  the  task  at  hand. 
Computational  efficiency  is  generally  accepted  to  be  one  of 
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a  program  designer's  primary  goals.  However,  because  these 
programs  were  designed  with  the  DSP  student  as  the  'Target 
User',  an  overriding  consideration  was  to  make  the  flow  of 
the  programs  understandable.  For  example,  in  CONCORDT.FOR 
the  program  will  compute,  among  the  options  available, 
either  the  linear  convolution  or  the  circular  correlation  of 
two  data  sequences  by  using  the  DFT  algorithm.  The  steps 
required  by  these  two  options  are  listed  below  [Ref.  l:pp. 
424,432,433] : 

Option:   Linear  Convolution 

1.  Zero  pad  array  #1. 

2.  Zero  pad  array  #2. 

3.  Compute  the  DFT  of  array  #1. 

4.  Compute  the  DFT  of  array  #2. 

5.  Multiply  the  results  of  steps  3  and  4. 

6.  Compute  the  IDFT  of  step  5. 

Option:   Circular  Correlation 

1.  Compute  the  DFT  of  array  #1. 

2.  Conjugate  the  result  of  step  1. 

3.  Compute  the  DFT  of  array  #2. 

4 .  Multiply  the  results  of  steps  2  and  3 . 

5.  Compute  the  IDFT  of  step  4. 

Clearly,  if  maximum  efficiency  was  the  only  goal  of  the 
programs,  the  steps  could  be  combined  as  follows: 

Option:   Linear  Convolution  or  Circular  Correlation 

1.  If  option  =  Linear  Convolution  then  zero  pad  array  #1 
and  array  #2. 

2.  Compute  the  DFT  of  array  #1. 

3.  If  option  =  Linear  Correlation  then  conjugate  the 
result  of  step  2 . 

4.  Compute  the  DFT  of  array  #2. 

5.  Multiply  the  results  of  steps  2  and  4. 

6.  Compute  the  IDFT  of  step  5. 


However,  by  maintaining  the  separated  algorithms,  students 
can  gain  insight  into  the  steps  required  to  accomplish  each 
of  the  tasks:  linear  convolution  or  circular  correlation. 
This  example,  although  somewhat  contrived,  demonstrates  the 
general  approach  taken  when  confronted  with  the  issue  of 
efficiency  versus  readability  throughout  the  programming. 
It  is  more  instructive  to  separate  the  Fortran  source  code 
according  to  the  steps  required  to  perform  a  specific 
functional  task  rather  than  combine  steps  to  form  an 
efficient  but  less  readable  algorithm. 

Each  of  the  problem  solving  programs  has  two  modes  of 
operation:  Test  or  Batch.  Test  Mode  was  conceived  to  guide 
inexperienced  users  through  each  program,  allowing  them  the 
option  of  running  the  programs  using  data  prestored  in  a 
data  file  named  XXXX.TST.  For  example,  while  running  the 
program  DFT.FOR  in  Test  Mode,  the  user  can  elect  to  use  the 
prestored  input  data  by  entering  'DFT.TST',  when  prompted 
for  the  name  of  the  input  file.  The  prestored  input  data 
and  the  output  which  it  produces  correspond  to  an  example 
problem  developed  in  the  header  text  of  each  program.  The 
inexperienced  user  can  therefore: 

1)  Read  the  header  text  including  the  sample  problem. 

2)  Match  the  input  parameters  required  by  the  program  to 
those  occurring  in  the  input  file:  XXXX.TST. 

3)  Execute  the  program  in  Test  Mode  to  produce  the 
corresponding  output.  In  Test  Mode,  key  input 
parameters  read  from  the  input  file  are  printed  onto 
the  monitor  screen.    This  further  aids  inexperienced 


users  by  providing  the  opportunity  to  detect  invalid 
input. 

The  more  experienced  user  can  elect  to  run  the  programs 

in  Batch  Mode.   In  this  mode  the  amount  of  interface  with 

the  user  is  minimized.   Upon  execution  in  Batch  Mode,  the 

program  assumes  that  the  appropriate  input  parameters  have 

been  stored  in  the  default  input  file:    XXXX.IN   (e.g., 

DFT.IN).    Figure  2.1  summarizes  the  events  that  occur  in 

each  of  the  two  modes:   Batch  and  Test. 


Select  mode: 
Test  or  Batch 


Test 


Batch 


Read  XXXX.IN 


> 

Prompt  user 
for  input 
file  name. 

Read  XXXX.TST 
or  the  input 
file  entered 
by  user. 

Print  input 
parameters 
onto  monitor. 

> 

Perform 
computations . 

Store  results  in 
files  XXXX.OUT 
and  XXXX.DAT. 

Figure  2.1   Program  Flow. 
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C.   GENERIC  STRUCTURE 

Students  who  use  these  programs  will  find  some  comfort 
in  their  standardized  input  and  output  structures  as  well  as 
the  documented  Fortran  code  found  in  the  algorithms 
themselves.  With  few  exceptions,  the  specific  names  of 
variables  correspond  to  their  conceptual  counterparts  found 
in  Reference  1.  By  using  a  single  DSP  textbook  such  as  this 
to  guide  the  choice  of  variable  names,  some  standardization 
can  be  achieved  throughout  the  programs'  header  text  and 
accompanying  source  code.  For  example  the  following 
variable  names,  among  others,  occur  in  several  of  the 
programs:  N  =  the  number  of  output  delays  in  a  system;  L  = 
the  number  of  input  delays  in  a  system;  x()  =  the  input 
seguence  of  a  system;  y()  =  the  output  sequence  of  a  system, 
etc.  A  more  comprehensive  discussion  of  specific  variable 
names  occurs  in  the  appendices.  The  remainder  of  this 
chapter  is  dedicated  to  describing  the  structure  of  the  ten 
problem  solving  programs.  The  plotting  program  is  not 
considered  here  as  this  program  was  designed  with  the  sole 
purpose  of  reading  data  from  an  input  file  and  creating  a 
two-dimensional  plot  of  the  data. 

1 .   Input  Structure 

All  of  the  programs  are  file  driven,  that  is,  each 
program  upon  execution  opens  an  input  file,  reads  the 
contents  of  the  input  file,  and  performs  the  computations 
specified  by  the  input  parameters.   Because  of  the  variety 


of  possible  computations  permitted  by  the  programs,  little 
attempt  was  made  to  standardize  the  specific  inputs 
themselves.  However,  the  following  general  specifications 
are  used: 

*  All  computations  are  performed  using  single  precision 
arithmetic. 

*  All  READ  statements  are  format-directed;  that  is,  none 
of  the  READ  statements  use  list-directed  format.  An 
extensive  discussion  of  the  tradeoffs  of  these  two 
methods  is  available  in  Fortran  programming  literature 
(e.g.,  [Ref.  2]) . 

*  'Real'  numbers  are  read  using  format:  F10.0.  This 
allows  the  flexibility  of  reading  real  numbers  entered 
using  either  F  or  E  format  descriptors. 

*  'Complex'  numbers  are  read  as  two  real  numbers,  each 
having  format:   F10.0. 

*  Integer  values  reguired  by  the  programs  are  read  using 
the  I  (integer)  format  descriptor. 

*  Character  strings  reguired  by  the  programs  vary  in 
length,  however,  none  of  the  reguired  string  inputs  is 
longer  than  10  characters. 

*  Separate  data  entries  occurring  on  a  given  line  (record) 
of  the  input  file  begin  in  one  of  the  following  columns: 
1,  11,  21,  31,  41,  51. 

During  the  developmental  stage  of  the  programs  an 

attempt  was  made  to  use  list-directed  inputs.    It  was 

discovered  however,  that  different  Fortran  compilers  treat 

variable  assignments  in  different  ways.   For  example,  while 

some  compilers  allow  integers  to  be  read  into  variables 

declared  as  real  and  vice  versa,  other  compilers  will  not 

allow  this.    in  order  to  maintain  the  portability  of  the 

programs;   therefore,   format-directed   inputs   are   used 

exclusively. 

10 


Each  of  the  programs  contains  instructions  in  the 
header  text  describing  the  options  available  and  the  input 
parameters  required  to  run  the  program.  An  example  problem 
is  developed  in  this  text  including  a  brief  overview  of  the 
problem,  the  input  required  to  achieve  the  desired  results, 
and  a  listing  of  the  actual  output  produced  by  the  program. 
This  approach  allows  first-time  users  to  confirm  their 
understanding  of  each  program's  input  requirements  and 
corresponding  format.  As  stated  at  the  beginning  of  this 
chapter,  each  sample  problem  can  actually  be  run  by 
executing  the  program  in  Test  Mode  and  specifying  the  input 
filename:  XXXX.TST  at  the  prompt.  Experienced  users  can 
elect  to  run  the  programs  in  Batch  Mode  in  which  case  the 
programs  attempt  to  OPEN  and  READ  the  default  input  file: 
XXXX.IN  (e.g.,  DFT.IN).  Input  files  for  other  than  test 
runs  should  be  named  according  to  this  scheme. 
2  .   Program  Structure 

Each  program  consists  of  a  main  program  and  one  or 
more  subroutine  subprograms.  The  computations  related  to 
the  functional  tasks  of  each  program  are  performed  in 
suitably  named  subroutines.  For  example,  the  program 
DFT.FOR  will  compute  either  the  Discrete  Fourier  Transform 
or  the  Inverse  Discrete  Fourier  Transform  of  a  given  input 
sequence  depending  on  the  option  selected.  The  program 
consists  of  a  main  program  and  the  subroutines  DFT,  INVDFT, 
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and  SAMPLE.  The  subroutines  DFT  and  INVDFT  perform  the 
computations  suggested  by  their  names  and  SAMPLE  allows  the 
user  the  option  of  generating  an  input  sequence  by  providing 
the  appropriate  Fortran  statements  in  the  space  provided  in 
the  body  of  the  subroutine  source  code.  Housekeeping  tasks 
are  reserved  for  the  main  programs.  These  tasks  include, 
but  are  not  limited  to,  the  following: 

*  Obtaining  the  inputs  required  by  the  program,  either 
from  the  input  file  or  from  the  keyboard,  as  appro- 
priate. 

*  Conducting  rudimentary  error  checks  on  the  input  data. 

*  Calling  the  appropriate  subroutines  to  perform  the 
desired  computations. 

*  Performing  data  conversions  (e.g.  ,  Real  and  Imaginary  — > 
Magnitude  and  Phase) . 

*  Creating  the  output  files. 

Error  checking  consists  of  ensuring  that  the 
numerical  input  values  are  within  the  range  specified  in 
each  program's  header  text.  This  reduces  the  chance  of 
making  gross  errors  such  as  inputting  '30'  when  a  READ 
statement  requires  format  14  thereby  pzoducing  an  erroneous 
input  of  3  000!  Character  string  inputs  are  used  by  most  of 
the  programs  to  distinguish  among  the  available  options. 
Error  checking  involving  these  inputs  is  limited  to  a  simple 
string  comparison.  The  error  messages  produced  by  any  of 
these  algorithms  are  self-explanatory. 


12 


3 .   Output  Structure 

Several  purposes  are  served  by  the  output  listings 
of  the  programs.   Among  these  are  the  following: 

1)  To  allow  the  user  to  confirm  anticipated  results  by 
comparing  the  output  data  generated  by  the  computer 
algorithm  to  analytical  results  generated  indepen- 
dently. 

2)  To  place  the  output  data  in  a  format  suitable  for  two- 
dimensional  plotting  by  a  program  such  as  PLOTDAT.FOR. 

The  former  stated  purpose  requires  that  the  output 
data  be  in  easily  readable,  tabular  form.  To  accomplish 
this,  each  program  generates  an  output  file  named:  XXXX.OUT 
(e.g.,  FFT.OUT) .  At  the  beginning  of  each  tabular  output 
file  the  data  read  from  the  input  file  is  listed  including 
any  input  sequence(s).  Additionally,  any  input  sequence(s) 
generated  by  a  subroutine  such  as  SAMPLE  is  also  written  to 
the  output  file.  Lastly,  the  output  data  generated  by  the 
program  is  listed.  This  comprehensive  listing  of  the  input 
data  as  well  as  the  output  data  allows  the  user  to  verify 
that  the  input  values  were  read  correctly  from  the  input 
file.  Furthermore,  with  both  the  input  data  as  well  as  the 
output  data  in  one  listing,  the  user  can  identify  the 
problem  and  check  the  computational  results  more  readily. 

The  two-dimensional  plotting  program  PLOTDAT.FOR 
reads  data  according  to  the  format:  fl2.0,  2X,  fl2.0,  with 
the  first  entry  on  each  line  corresponding  to  the  ordinate 
value  and  the  second,  the  abscissa.  The  plotting  program 
will  produce  more  than  one  plot  if  the  appropriate  data 
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entries  exist  in  the  input  file.  This  flexibility  of  the 
plotting  program  suggests  the  possibility  of  plotting  not 
only  the  output  data,  but  also  any  input  sequence  (s).  To 
accommodate  the  capabilities  of  the  plotting  program,  each 
of  the  ten  problem  solving  programs  creates  an  output  file 
named:  XXXX.DAT  (e.g.,  FFT.DAT).  For  programs  that  require 
an  input  sequence(s),  both  the  input  sequence(s)  as  well  as 
the  output  sequence (s)  are  stored  in  the  output  file 
XXXX.DAT.  These  output  files  are  created  in  addition  to  the 
tabular  output  files  and  do  not  require  any  user  interface. 

The  general  content  and  format  of  the  programs  have 
been  discussed  in  this  chapter.  The  next  chapter  formally 
develops  each  program,  relating  computational  goals  to 
specific  source  code. 
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III.   SOFTWARE  DESIGN 

A  subsection  of  this  chapter  is  dedicated  to  each  of  the 
ten  problem  solving  programs  as  well  as  the  plotting  program 
PLOTDAT.FOR.  Flowcharts  that  describe  the  various  al- 
gorithms are  located  in  Appendices  A  through  K  and  listings 
of  the  Fortran  source  code  for  the  programs  are  included  as 
Appendix  L. 

A.   PROBLEM  SOLVING  PROGRAMS 
1.   DIGFREO.FOR 

The  program  DIGFREQ.FOR  is  designed  to  compute  the 
frequency  response  of  up  to  three  digital  filters.  The 
program  assumes  that  the  filters  are  stable  and  that  the 
transfer  function  of  each  filter  has  the  form: 

b(0)zL  +  b(l)zL_1  +  b(2)zL"2  +  ...  +  b(L-l)z  +  b(L) 

H(Z)  =  ■ 

c(0)zN  +  c(l)zN-1  +  c(2)zN~2  +  ...  +  c(N-l)z  +  c(N) 

(3.1) 

The   order  of   the   numerator   (L)   and  the   order  of  the 

denominator  (N)  can  be  assigned  any  integer  values  in  the 

range:   0  to  12  8.   These  parameters  are  read  from  the  input 

file.    The  program  accepts  up  to  three  distinct  filter 

equations  and  will  compute  the  magnitude  and  phase  (degrees) 

for  up  to   101   frequency  points   for  each   filter.    The 
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frequency  (9)  range  of  interest  is  also  specified  by  the 
user  in  the  input  file. 

The  program  consists  of  the  main  program  DIGFREQ.FOR 
and  the  subroutines  COEFF  and  DFRESP.  The  user  can  provide 
the  filter  coefficients  [arrays  b()  and  c()]  in  the  input 
file  or  can  elect  to  generate  them  through  use  of  the 
subroutine  COEFF.  If  this  latter  option  is  chosen  then  the 
user  must  provide  the  appropriate  Fortran  statements  in  the 
space  allocated  in  the  subroutine  and  the  program  must  be 
compiled  again  before  execution.  Subroutine  DFRESP  is 
called  by  the  main  program  to  perform  the  actual  frequency 
response  computations. 

This  program  is  an  implementation  of  the  psuedocode 
presented  in  Reference  1.  [p.  203]  The  software  flowcharts 
of  Appendix  A  depict  the  overall  program  structure.  If  the 
user  has  elected  to  run  the  program  in  Batch  Mode  the 
default  input  file  DIGFREQ.IN  is  opened  by  the  program  and 
the  input  parameters  are  read  from  it.  If  Test  Mode  is 
chosen,  the  input  file  whose  name  is  specified  by  the  user 
is  read.  The  parameters  describing  each  filter  are  passed 
to  subroutine  DFRESP  which  then  computes  the  magnitude  and 
phase  of  H(z)  for  each  value  of  z  =  e^0  in  the  specified 
range  of  9.  By  using  nested  multiplication  to  compute  the 
frequency  response,  DFRESP  adds  a  measure  of  efficiency  to 
the  program  [Ref.  3].  In  the  limit  (L  =  128,  N  =  128),  if 
evaluation  of  each  polynomial  term  is  performed  for  101 
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frequency  points,  the  total  number  of  complex  multiplies 
required  is  over  1.6  million.  The  corresponding  number  of 
complex  multiplies  required  using  the  Nested  Multiplication 
technique  is  about  2  6  thousand. 

The  input  parameters  read  from  the  input  file  and 
the  corresponding  frequency  response (s)  generated  by  the 
program  are  stored  in  tabular  form  in  the  output  file 
DIGFREQ.OUT.  Additionally,  the  program  writes  the  frequency 
response  data  into  the  file  DIGFREQ.DAT.  Appropriate  labels 
and  control  parameters  accompany  the  data  in  DIGFREQ.DAT  and 
are  written  in  a  form  compatible  with  the  plotting  program 
PLOTDAT . FOR . 

Appendix  A  traces  the  development  of  two  digital 
filters  and  compares  the  anticipated  frequency  responses 
with  the  computer  generated  output.    Plots  of  the  output 
data  produced  by  PLOTDAT. FOR  are  included  in  the  analyses. 
2.   ANLGFREO . FOR 

The  program  ANLGFREQ.FOR  is  designed  to  compute  the 
frequency  response  of  continuous-time  (analog)  systems.  The 
design  of  ANLGFREQ.FOR  is  very  similar  to  DIGFREQ.FOR.  The 
program  assumes  that  the  filter  is  stable  and  that  the 
transfer  function  has  the  form: 

b(0)sL  +  b(l)sL-:L  +  b(2)sL"2  +  ...  +  b(L-l)s  +  b(L) 

H(s)  = 

a(0)sN  +  a(l)sN_1  +  a(2)sN"2  +  ...  +  a(N-l)s  +  a(N) 

(3.2) 
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The  order  of  the  numerator  (L)  and  the  order  of  the 
denominator  (N)  can  be  assigned  any  integer  values  in  the 
range:  0  to  128.  The  parameters  L  and  N,  as  well  as  the 
coefficients  b(0),  .  ..,  b(L)  and  a(0),  ...,  a(N)  are 
specified  in  the  input  file.  As  with  DIGFREQ.FOR,  the 
program  will  accept  up  to  three  distinct  filter  equations 
from  the  input  file,  and  calculate  the  magnitude  and  phase 
for  up  to  101  frequency  points  for  each  filter.  The  user 
must  specify  the  frequency  range  of  interest  and  can  elect 
to  have  the  magnitude  expressed  in  decibels  (dB) . 

The  algorithm  consists  of  the  main  program  ANLG- 
FREQ.FOR  and  the  subroutine  AFRESP.  The  main  program 
controls  the  input  and  output  and  calls  subroutine  AFRESP  to 
compute  the  frequency  response  for  each  filter.  The 
software  flowcharts  of  Appendix  B  depict  the  program 
structure.  Subroutine  AFRESP  is  an  adaptation  of  the 
Fortran  source  code  used  in  subroutine  DFRESP  [Ref.  l:p. 
621].  ANLGFREQ.FOR  computes  the  frequency  response  of 
filters  expressed  in  the  's  domain'.  This  differs  from 
DIGFREQ.FOR  which  computes  the  frequency  response  of  filters 
expressed  in  the  'z  domain'.  Notwithstanding  this  dif- 
ference, the  subroutines  DFRESP  and  AFRESP  are  identical 
[except  that  *jw'  (j  omega)  is  substituted  for  the  complex 
variable  'z'  in  AFRESP]  and  the  efficiencies  gained  through 
the  use  of  nested  multiplication  apply  for  AFRESP  as  well. 
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The  output  data  produced  by  ANLGFREQ.FOR  are  stored 
in  two  files:  ANLGFREQ.OUT  and  ANLGFREQ.DAT.  The  former 
output  file  lists  both  the  input  parameters  as  well  as  the 
output  data  for  each  filter  in  tabular  form.  ANLGFREQ.DAT 
is  a  listing  of  the  output  data  in  a  form  suitable  for 
plotting. 

Appendix  B  presents  the  conceptual  development  of  an 
analog  filter  and  its  corresponding  frequency  response  using 
ANLGFREQ.FOR.     Plots   of   the   output   data   generated   by 
PLOTDAT.FOR  are  included  in  the  analysis. 
3.   DFT.FOR 

A  task  particularly  well  suited  for  the  digital 
computer  is  the  computation  of  the  Discrete  Fourier 
Transform  (DFT)  or  its  inverse,  the  IDFT.  The  DFT  of  a 
sequence  N  samples  long  is  defined  by: 


N-l 
X(k)  =    S   x(n)e"J27rnk/N  ,     k  =  0,  1,  ...,  N-l 
n=0 

(3.3) 

Its  corresponding  inverse,  the  IDFT,  is  defined  by: 


1   N-l 
x(n)  =  -    2   X(k)eJ27rnk/N  ,        n  =  0,  1,  ...,  N-l 
N   k=0 

(3.4) 

An  alternate  method  for  calculating  the  IDFT  is  the 

'Alternate  Inversion  Formula'  [Ref.  l:p.  406]: 
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x(n)  = 


1 

N-l      *         -j27rnk/N 

- 

2      X(k)e 

N 

k=0 

n  =  0,  1,  . . . ,  N-l 


*  Denotes  complex  conjugation.  (3.5) 

Once  an  algorithm  has  been  developed  to  compute  the  DFT 
[Equation  (3.3)],  the  IDFT  can  be  efficiently  computed  using 
Equation  (3.5).  The  steps  involved  in  computing  the  IDFT 
are  summarized  below. 

1.  Conjugate  all  N  values  of  the  sequence  X(k) . 

2 .  Use  the  DFT  algorithm  to  compute  the  DFT  of  the 
conjugated  sequence. 

3.  Conjugate  the  sequence  resulting  from  step  2  and 
divide  each  value  by  N.  The  result  is  the  sequence 
x(n)  . 

The  program  DFT. FOR  consists  of  a  main  program  and 

the  subroutines  DFT,  INVDFT,  and  SAMPLE.   The  main  program 

reads  the  required  input  parameters  from  the  input  file  and, 

depending  on  the  option  specified  by  the  user,   computes 

either  the  DFT  or  the  IDFT  of  the  input  sequence  by  calling 

the  appropriate  subroutine.    The  program  will  accept  a 

complex  input  sequence  of  up  to  256  samples.   Since  typing  a 

long  sequence   of  data   into  an   input  file   is   somewhat 

impractical,  the  user  has  the  option  of  generating  the  input 

sequence  by  using  the  subroutine  SAMPLE.   If  this  method  of 

data  generation  is  chosen,  the  user  must  provide  the  Fortran 

statements  required  to  generate  the  sequence,  in  the  space 

provided  in  the  subroutine.   For  example,  if  the  user 
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desires  to  compute  the  DFT  of  the  "real'  sequence  xin(i)  = 

cos(i7r/N)   for   i   =   0,   1,   ...,   N-l  appropriate  Fortran 

statements  to  be  written  into  SAMPLE  are: 

do  100  i  =  0,  N-l 

xin(i)  =  cmplx(cos(i*3.14159/N) ,  0.0) 
100    continue 

A  caveat  to  using  this  method  of  data  generation  is  that  the 

program  must  be  recompiled  before  execution. 

The  software  flowcharts  of  Appendix  C  depict  the 
overall  program  structure.  As  the  flowcharts  indicate,  the 
program  computes  the  DFT  of  the  sequence  according  to 
Equation  (3.3)  and  computes  the  IDFT  by  use  of  the  Alternate 
Inversion  Formula.  Thus,  subroutine  INVDFT  must  call 
subroutine  DFT  as  part  of  the  IDFT  computation.  Both 
algorithms  are  implementations  of  the  psuedocode  archi- 
tecture presented  in  Reference  1  [pp.  411,  412].  This 
design  incorporates  the  efficiencies  of  nested  multiplica- 
tion stated  previously.  Also  included  in  Appendix  C  are 
three  example  problems  that  demonstrate  the  capabilities  of 
DFT. FOR. 

4.   PRDGRM.FOR 

As  the  first  of  two  application  programs  of  the  DFT 
algorithm,  PRDGRM.FOR  provides  an  introduction  to  the 
classical  methods  of  spectrum  analysis.  The  periodogram  of 
a  sequence  is  defined,  quite  simply,  as  the  square  of  the 
DFT  of  the  sequence  divided  by  N,  the  number  of  points  [Ref. 
l:pp.  454-456].   Equation  (3.3)  governs  the  computation  of 
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the  DFT  sequence  X(k),  and  with  this  task  accomplished  the 
periodogram  can  be  computed  from: 

1      * 
Sxx(k)   =   -  X(k)X(k)       k  =  0,  1,  .  ..,  N-l 
N 

*   Denotes  complex  conjugation.  (3.6) 

The  program  PRDGRM.FOR  will  compute  the  periodogram 
of  a  sequence  consisting  of  up  to  2  56  complex  values.  To 
facilitate  the  generation  of  long  sequences  of  input  data, 
the  subroutine  SAMPLE  has  been  provided  as  part  of  the 
algorithm.  Instructions  for  its  use  are  the  same  as  those 
discussed  in  the  previous  section.  The  main  program 
performs  the  input  and  output  tasks  required  by  the  program 
and  calls  subroutine  DFT  to  compute  the  sequence  X(k).  Once 
the  array  X(k)  has  been  computed,  the  main  program  computes 
the  sequence  Sxx(k)  by  implementation  of  Equation  (3.6).  An 
option  available  to  the  user  is  to  have  the  output  sequence 
expressed  in  decibels,  a  result  commonly  referred  to  as  the 
'Log  Periodogram'. 

Appendix  D  includes  three  example  problems  that 
demonstrate  the  utility  of  PRDGRM.FOR.  Included  in  the 
problem  analyses  is  a  discussion  of  the  limitations  of  the 
periodogram  as  a  means  of  spectral  estimation  for  finite- 
length  sequences.  The  software  flowcharts  of  the  appendix 
outline  the  program's  structure. 
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5.   CONCORDT.FOR 

The  second  application  program  of  the  DFT  algorithm 
is  CONCORDT.FOR.  The  program  uses  the  DFT  technique  to 
perform  one  of  the  following  operations,  given  two  sequences 
of  complex  input  values: 

1.  Linear  convolution. 

2.  Linear  correlation. 

3.  Circular  convolution. 

4.  Circular  correlation. 

The  program  consists  of  the  main  program  CON- 
CORDT.FOR and  the  subroutines  DFT,  INVDFT,  SAMPL1 ,  SAMPL2 , 
and  ZEROPAD.  Subroutines  DFT  and  INVDFT  compute,  respec- 
tively, the  DFT  and  the  IDFT  of  a  given  sequence.  Sub- 
routines SAMPL1  and  SAMPL2  allow  the  user  the  option  of 
generating  the  input  sequences  xnl()  and  xn2 ( )  by  providing 
the  appropriate  Fortran  statements  in  the  space  provided  in 
the  subroutines.  Details  of  these  four  subroutines  were 
presented  previously  and  therefore  will  not  be  repeated 
here.  Subroutine  ZEROPAD  is  designed  to  extend  each  of  the 
input  sequences  to  the  length  required  for  computing  either 
the  linear  convolution  or  the  linear  correlation  using  the 
DFT  technique.  For  example,  to  compute  the  linear  convolu- 
tion of  the  two  input  sequences  xnl()  and  xn2 ( )  of  length  Nl 
and  N2 ,  respectively,  each  of  the  these  sequences  must  be 
padded  with  enough  zeros  to  extend  the  sequences  to  length: 
N3  =  Nl  +  N2  -  1  samples.   To  accomplish  this,  the  sequence 
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xnl()  must  be  padded  with  N3  -  Nl  zeros  and  the  sequence 
xn2()  must  be  padded  with  N3  -  N2  zeros.  This  same 
procedure  is  required  if  the  linear  correlation  of  the  two 
sequences  is  to  be  performed.  In  either  case,  subroutine 
ZERO PAD  extends  the  sequences  to  the  required  length.  The 
program  accepts  input  sequences  consisting  of  up  to  128 
complex  values.  The  input  sequences  xnl ( )  and  xn2 ( )  are 
assumed  to  exist  in  the  sample  intervals  0  to  Nl  -  1  and  0 
to  N2  -  1,  respectively. 

The  technique  of  using  the  DFT  algorithm  to  compute 
the  convolution  of  two  sequences  is  based  on  the  concept 
that  time  domain  convolution  corresponds  to  frequency  domain 
multiplication.  Given  this  relationship,  the  steps  required 
to  compute  the  circular  convolution  of  two  sequences  are 
depicted  below.  For  ease  of  documentation,  the  following 
symbols  are  used: 


*   Denotes  linear  convolution. 
0  Denotes  circular  convolution. 


xnl()  > 


xn2()  > 


DFT 


X  > 


DFT 


IDFT 


->  xn3() 


xn3 ()  =  xnl()  ®  xn2 () 


Figure  3.1   Circular  Convolution 
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The  circular  correlation  R()  can  be  computed  in  the 

xnlxn2 

time  domain  by  reversing  the  order  of  the  sequence  xnl ( )  and 

performing  circular  convolution  on  the  resulting  sequences. 

Circular  correlation  can  also  be  performed  using  the  DFT 

technique  by  performing  the  following  steps: 


xnl()  — > 


xn2  () 


DFT 

> 

CONJUGATE 

I  DFT 

A 

> 

DFT 

— >R() 

xnlxn2 


R() 

xnlxn2 


=   The  circular  correlation  of  xnl ( )  and  xn2 ( ) 


Figure  3.2   Circular  Correlation. 

Linear  convolution  is  performed  by  first  zero 
padding  the  sequences  to  length  N3  =  Nl  +  N2  -  1  and  then 
performing  circular  convolution  on  the  extended  sequences. 
Thus,  the  steps  required  to  perform  linear  convolution  are: 


xnl()  > 


xn2  () 


ZEROPAD 


ZEROPAD 


DFT 


X 


DFT 


IDFT 


->  xn3  ( ) 


xn3 ()  =  xnl()  *  xn2 () 


Figure  3 . 3   Linear  Convolution 
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Linear  correlation  is  similarly  computed  by  first 
zero  padding  the  sequences  and  then  performing  circular 
correlation  on  the  extended  sequences.  The  steps  required 
for  this  computation  are: 


xnl()- 

— > 
— > 

ZEROPAD 

— > 

DFT 

— > 

CONJUGATE 

"1 

X  - 

— > 

IDFT 

' >R() 

xnlxn2 

ZEROPAD 

> 

xn2 ( )  ■ 

DFT 

R()    ■  The  linear  correlation  of  xnl()  and  xn2() 
xnlxn2 


Figure  3.4   Linear  Correlation. 

A  phenomenon  encountered  when  performing  the  linear 
correlation  operation,  using  the  DFT  technique,  is  'wrap- 
around' of  the  output  sequence.  This  is  directly  at- 
tributable to  the  required  zero  padding  of  the  input 
sequences.  While  it  would  be  a  simple  matter  of  software 
manipulation  to  prevent  the  wraparound  from  appearing  in  the 
final  output  sequence,  it  is  felt  that  incorporation  of  the 
phenomenon  is  relevant  to  student  comprehension  of  the 
actual  computations  involved.  Example  #4  of  Appendix  E 
demonstrates  the  wraparound  that  occurs  when  the  linear 
correlation  of  two  input  sequences  is  computed. 

The  procedures  described  above  as  well  as  a 
comprehensive  analysis  on  use  of  the  DFT  technique  to 
perform  convolution  and  correlation  are  presented  in  Chapter 
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7  of  Reference  1.  CONCORDT.FOR  is  a  Fortran  implementation 
of  this  technique.  Flowcharts  describing  the  structure  of 
CONCORDT.FOR  and  subroutine  ZERO PAD  are  included  in  Appendix 
E.  Also  included  in  this  appendix  are  example  problems 
demonstrating  the  four  computations  that  CONCORDT.FOR  is 
capable  of  performing. 
6.   FFT.FOR 

Similar  in  purpose  to  DFT.FOR,  FFT.FOR  is  designed 
to  compute  the  DFT  or  the  IDFT  of  a  complex  input  sequence 
consisting  of  up  to  256  samples.  The  advantage  FFT.FOR  has 
to  offer  over  DFT.FOR  is  use  of  the  Fast  Fourier  Transform 
(FFT)  technique  for  computing  the  DFT.  Entire  books  have 
been  dedicated  to  this  subject,  most  of  which  include  a 
Fortran  algorithm  for  performing  the  FFT  computation.  The 
FFT  technique  used  by  FFT.FOR  is  a  Radix-2 ,  Decimation  In 
Time  algorithm  adapted  from  the  psuedocode  design  appearing 
in  Reference  1  [pp.  510-512].  Included  in  this  reference  is 
a  software  flowchart  of  the  subroutine  REVERSAL  which  is 
discussed  in  more  detail  below. 

The  program  consists  of  the  main  program  FFT.FOR  and 
the  subroutines  FFT,  REVERSAL,  INVFFT,  and  SAMPLE.  The  main 
program  calls  subroutine  FFT  to  perform  the  actual  FFT 
computations.  In  order  to  use  the  Decimation  In  Time 
algorithm,  the  input  sequence  must  be  reordered  according  to 
a  'bit-reversal'  scheme.  This  scheme  involves  changing  the 
position  that  each  sample  holds  in  the  input  sequence  by 
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reversing  the  order  of  the  bits  corresponding  to  the 
positional  address  of  each  sample.  For  example,  an  8-sample 
input  sequence  would  have  the  binary  positional  addresses: 
[000  001  010  011  100  101  110  111].  After  reversing  the 
order  of  the  sequence,  the  binary  addresses  of  the  bit- 
reversed  sequence  would  be:  [000  100  010  110  001  101  011 
111].  In  terms  of  the  Fortran  array  x(),  the  8-element, 
bit-reversed  array  will  contain  the  original  eight  values 
but  rearranged  into  the  new  order: 

x(0) 
x(4) 
x(2) 
x(6) 
x(l) 
x(5) 
x(3) 
x(7) 

Subroutine  REVERSAL  performs  this  reordering  of  the  input 

sequence.     The  main   program  passes  the  original   input 

sequence  to  the  subroutine  in  the  array  xtmp  ( )   and  the 

subroutine  returns  the  bit-reversed  sequence  in  the  array 

x()  . 

In  addition  to  the  FFT  computation,   FFT.FOR  was 

designed   to   compute  the   Inverse   Fast   Fourier  Transform 

(IFFT)  .   If  used  for  no  other  reason,  the  IFFT  serves  as  a 

check  on  the  FFT  computation.    For  example,  the  user  can 

elect  to  have  the  FFT  of  a  sequence  computed,  and  as  a  check 

on  the  computed  results,  run  the  program  again  but  this  time 

using  the  FFT  results  as  input  to  the  IFFT  computation.   The 

results  of  this  second  run  should  be  the  original  input 
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sequence,  with  some  allowance  for  single-precision  roundoff 
error.  Subroutine  INVFFT  performs  the  IFFT  computation  in  a 
manner  identical  to  the  IDFT  computation  performed  by 
subroutine  INVDFT.  In  fact,  the  flowcharts  of  the  two 
subroutines,  except  for  the  names  of  the  variables,  are 
identical . 

Subroutine  SAMPLE  provides  the  means  to  generate  the 
input  sequence  by  allowing  the  user  to  write  the  appropriate 
Fortran  statements  into  the  space  allocated  in  the  sub- 
routine. The  user  can  elect  to  use  this  method  of  data 
generation  or  can  choose  to  provide  the  N  complex  input 
samples  in  the  input  file. 

Because  FFT.FOR  is  a  Radix-2  algorithm,  the  input 
sequence  must  be  of  length  N  =  2m,  m  =  integer.  This 
apparent  limitation  to  the  utility  of  the  FFT  is  easily 
overcome  in  practical  applications  by  either:  1)  Requiring 
the  sampled  input  sequence  to  be  of  the  correct  length  or; 
2)  Zero  padding  the  input  sequence  until  it  is  of  length 
N  =  2m.  This  later  technique  is  used  in  the  program  CON- 
CORFT.FOR  presented  in  the  next  section.  Zero  padding 
should  not  be  used  to  extend  a  sequence  for  the  purpose  of 
computing  a  periodogram;  however,  since  the  addition  .of 
zeros  will  cause  erroneous  frequency  information  to  appear 
in  the  periodogram  sequence. 

The  input  and  output  sequences  are  stored  in  tabular 
form  in  the  file  FFT. OUT.   Additionally,  the  sequences  are 
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written   into  the   file   FFT.DAT   in  a   form  suitable   for 
plotting. 

The  software  flowcharts  of  Appendix  F  depict  the 
structure  of  FFT.FOR  and  the  subroutines  FFT,  INVFFT  and 
REVERSAL.  Also  included  in  this  appendix  are  two  example 
problems  that  demonstrate  both  the  FFT  and  the  IFFT 
computations . 

7.   CONCORFT.FOR 

As  an  application  program  for  the  FFT  algorithm, 
CONCORFT.FOR  is  capable  of  performing  any  one  of  the 
following  four  operations,  given  two  sequences  of  complex 
input  data: 

1.  Linear  convolution. 

2.  Linear  correlation. 

3.  Circular  convolution. 

4.  Circular  correlation. 

Similar  in  design  to  CONCORDT. FOR,  this  program  also 
uses  the  DFT  technique  to  perform  the  selected  operation. 
Figures  3.1  through  3.4  describe  the  computations  required 
by  each  of  the  four  operations.  In  order  to  take  full 
advantage  of  the  efficiencies  of  the  FFT  algorithm,  however, 
each  of  the  DFT  computations  required  by  CONCORFT.FOR  is 
accomplished  using  an  FFT.  This  design  invokes  the 
requirement  that  the  input  sequences  be  of  length  N  =  2m 
(m  =  integer) ,  since  the  FFT  subroutine  used  by  the  program 
is   a   Radix-2   algorithm.   For  the   linear   convolution/ 
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correlation  operations  this  requirement  is  easily  fulfilled 
by  zero  padding  the  sequences  to  a  suitable  length.  For 
example,  if  the  sequences  xnl()  and  xn2()  are  of  length  Nl  = 
4  and  N2  =  3 ,  the  linear  convolution/correlation  operations, 
as  computed  via  the  DFT  technique,  require  that  the  input 
sequences  be  zero  padded  to  the  minimum  length:  N3  =  Nl  + 
N2  -  1  =  6 .  Since  N3  =  6  is  not  an  integer  power  of  two, 
CONCORFT.FOR  will  further  extend  the  sequences  to  length 
N3  =  23  =  8  by  additional  zero  padding.  The  extended 
sequences  can  then  be  used  in  the  FFT  computations. 

While  zero  padding  is  intrinsic  to  CONCORFT. FOR' s 
linear  convolution/correlation  operations,  its  use  in 
performing  circular  convolution/correlation  will  lead  to 
erroneous  results.  For  this  reason,  CONCORFT.FOR  will 
perform  circular  convolution/correlation  only  if  the  input 
sequences  are  of  equal  length  and  the  lengths  are  an  integer 
power  of  two.  The  program  is  designed  to  screen  the  input 
data  to  ensure  that  these  requirements  are  met.  Suitable 
error  messages  are  printed  on  the  screen  and  the  program's 
execution  is  halted  if  they  are  not  met. 

CONCORFT.FOR  accepts  input  sequences  consisting  of 
up  to  128  complex  values.  The  input  sequences  xnl()  and 
xn2  ( )  are  assumed  to  exist  in  the  sample  intervals  0  to 
Nl  -  1  and  0  to  N2  -  1,  respectively.  The  main  program 
controls  the  input/output  tasks  and  calls  the  appropriate 
subroutines  to  perform  the  selected  operation.   There  are 
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six  subroutines   in  all  and  a  brief  description  of  the 
function  of  each  subroutine  is  as  follows: 

1.  FFT  -  Computes  the  Fast  Fourier  Transform  of  a 
sequence. 

2.  INVFFT  -  Computes  the  Inverse  Fast  Fourier  Transform 
of  a  sequence. 

3 .  REVERSAL  -  Rearranges  a  sequence  into  bit-reversed 
order. 

4 .  ZEROPAD  -  Extends  a  sequence  by  adding  an  appropriate 
number  of  zero  values. 

5.  SAMPL1  -  Allows  the  user  the  capability  of  generating 
the  sequence  xnl()-  >jy  providing  the  appropriate 
Fortran  statements  in  the  space  allocated  in  this 
subroutine. 

6.  SAMPL2  -  Allows  the  user  the  capability  of  generating 
the  sequence  xn2 ( )  by  providing  the  appropriate 
Fortran  statements  in  the  space  allocated  in  this 
subroutine. 

A  software  flowchart  describing  the  design  of 
CONCORFT.FOR  is  provided  in  Appendix  G.  Also  included  in 
this  appendix  are  four  example  problems,  each  of  which 
demonstrates  one  of  the  operations  that  CONCORFT.FOR  is 
capable  of  performing. 
8.   CONCOR.FOR 

The  program  CONCOR.FOR  is  designed  to  compute  either 
the  linear  convolution  or  the  linear  correlation  of  the  two 
input  sequences  xnl(n)  and  xn2(n).  The  non-zero  values  of 
the  sequence  xnl(n)  must  exist  in  the  range:  nsl  <  n  <  nel. 
Similarly,  the  non-zero  values  of  xn2(n)  must  exist  in  the 
range  ns2  <  n  <  ne2 .   The  constraints  on  the  values  nsl, 


32 


nel,  ns2,  ne2  are:   -  128  <  nsl  <  nel  <  128   and   -  128  < 
ns2  <  ne2  <  128. 

Unlike  the  frequency  domain  techniques  used  to 
perform  convolution  and  correlation  in  CONCORDT.FOR  and 
CONCORFT. FOR,  all  computations  performed  by  this  alqorithm 
are  done  in  the  time  domain.  For  linear  convolution, 
Equation  (3.7)  applies. 

00 

yn(n)  =   2  xnl (m) *xn2 (n-m) 

m=-oo 

(3.7) 
For  linear  correlation,  as  it  is  performed  by  this  al- 
gorithm, Equation  (3.8)  applies. 

00 

R(p)      =   Z  xnl(m) *xn2 (p+m) 
xnlxn2    m=-°o 

(3.8) 

The  program  consists  of  the  main  program  C0NC0R.F0R 

and  the   subroutines   SAMPL1 ,   SAMPL2 ,   CONVOL,   and  CORREL. 

Subroutines  SAMPL1  and  SAMPL2  allow  the  user  to  generate 

either  of  the  input  sequences  by  providing  the  appropriate 

Fortran  statements  in  the  space  provided  in  the  subroutines. 

Subroutine  CONVOL  is  called  by  the  main  program  to  compute 

the  linear  convolution  of  the  two  sequences,  according  to 

Equation  (3.7).   The  computations  are  necessarily  limited  to 

include  only  the  non-zero  ranges  of  the  two  input  sequences. 

Subroutine  CORREL  is  called  by  the  main  program  to  compute 

the  linear  correlation  of  the  two  input  sequences,  according 

to  Equation  (3.8).   Similar  to  CONVOL,  the  computation  is 
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limited  to  the  non-zero  ranges  of  the  input  sequences.  An 
alternate  method  of  computing  the  linear  correlation  would 
be  to  reverse  the  sequence  of  values  stored  in  xnl(n)  and 
then  to  compute  the  linear  convolution  of  the  resulting 
sequences  [Ref.  l:p.  432].  This  method  is  not  used  in  this 
algorithm. 

Appendix  H  contains  flowcharts  that  describe  the 
main  program,  as  well  as  the  subroutines  CONVOL  and  CORREL. 
The  appendix  also  includes  example  problems  that  demonstrate 
the  performance  of  CONCOR.FOR. 
9.   DIFFEO.FOR 

The  program  DIFFEQ.FOR  is  designed  to  compute  the 
iterative  solution  to  a  linear,  time-invariant  (LTI) 
difference  equation.  The  program  will  compute  the  solution 
for  up  to  four  distinct  equations,  each  of  the  form: 

y(ns)  =  a(l)*y(ns-l)  +  a(2)*y(ns-2)  +  ...  +  a(N)*y(ns-N)  + 
b(0)*x(ns)  +  b(l)*x(ns-l)  +  ...  +  b (L) *x (ns-L) 

(3.9) 

The  solution  to  each  equation  is  computed  for  values 

of  ns  in  the  range  0  <  ns  <  nstop,  where  nstop  can  be 

assigned  any  integer  value  in  the  range  0  <  nstop  <  300. 

The  input  sequence  x(ns)  is  assumed  to  be  zero  for  values  of 

ns  less  than  zero.    The  parameter  L  corresponds  to  the 

maximum  number  of  delays  in  the  input  sequence  and  can  be 

assigned  any  integer  value   in  the  range  0   <  L  <  128. 

Similarly,  the  parameter  N  corresponds  to  the  maximum  number 
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of  delays  in  the  output  sequence  and  can  be  assigned  any 
integer  value  in  the  range   0  <  N  <  128. 

To  run  the  program,  the  user  must  provide  the 
parameters  N,  L  and  nstop,  as  well  as  the  coefficients 
a(l)...a(N),  and  b(0)...b(L).  For  values  of  N  >  0,  the  user 
must  also  provide  the  initial  condition  sequence  y(-N)... 
y(-l).  The  user  has  the  option  of  providing  the  values  of 
x(ns)  in  the  input  file  or  generating  the  sequence  through 
use  of  the  subroutine  XGEN.  All  of  the  aforementioned 
inputs  must  be  provided  for  each  difference  equation  to  be 
solved. 

The  program  consists  of  the  main  program  DIFFEQ.FOR 
and  the  subroutines  DIFFEQ  and  XGEN.  Flowcharts  of  the  main 
program  and  the  subroutine  DIFFEQ  are  provided  in  Appendix 
I.  The  program  is  a  computer  implementation  of  the 
psuedocode  algorithms  presented  in  Reference  1  [pp.  84-86] . 
Also  presented  in  Appendix  I  are  two  example  problems  that 
demonstrate  the  capabilities  of  DIFFEQ.FOR. 
10.  STATEO.FOR 

The  final  problem  solving  program  is  designed  to 

compute  the  iterative  solution  to  a  set  of  linear,  time 

invariant  state  equations.   The  state  and  output  equations 

are  assumed  to  be  of  the  form: 

v(ns+l)  =  Av(ns)  +  Bx(ns) 

(3.10) 

y(ns)  =  Cv(ns)  +  Dx(ns) 

(3.11) 
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where: 

*  x()  is  the  M  x  1  input  vector, 

*  v()  is  the  N  x  1  state  vector, 

*  y()  is  the  Q  x  1  output  vector, 

*  A  is  an  N  x  N  matrix  of  real  constants, 

*  B  is  an  N  x  M  matrix  of  real  constants, 

*  C  is  an  Q  x  N  matrix  of  real  constants  and, 

*  D  is  an  Q  x  M  matrix  of  real  constants. 

The  program  will  compute  the  solution  to  the  system 

of  equations  for  values  of  ns  in  the  range   0  <  ns  <  nstop. 

The  limits  on  the  parameters  M,  N,  Q,  and  nstop  are: 

0  <  M  <  4 

0  <  N  <  10 

0  <  Q  <  4 

0  <  nstop  <  99. 

(3.12) 

These  parameters  as  well  as  the  values  for  the  matrices  A, 

B,  C,  D,  and  the  vector  comprising  the  initial  condition  of 

the  system  (vector  v()  at  ns  =  0)  must  be  provided  by  the 

user  in  the  input  file.    The  user  can  elect  to  provide 

values  for  the  input  vector  x(ns)  in  the  input  file,  or, 

alternatively,   may   choose   to   generate   these   values   by 

writing  the  appropriate  Fortran  statements  into  subroutine 

XGEN.   The  output  of  the  program  is  the  time-history  of  the 

vector  y(ns) ;  however,  the  program  stores  all  values  of  the 

vectors  x(ns) ,  v(ns) ,  and  y(ns)  in  the  tabular  output  file 

STATEQ.OUT. 
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The  program  consists  of  the  main  program  STATEQ.FOR 
and  the  subroutines  ITRATE  and  XGEN.  The  algorithm  is  a 
Fortran  implementation  of  a  design  adapted  from  Reference  1 
[pp. 762-765] .  The  main  program  reads  the  input  parameters 
from  the  input  file  and  calls  subroutine  ITRATE  to  compute 
the  solution  to  the  state  equations.  Subroutine  XGEN  exists 
for  the  sole  purpose  of  allowing  the  user  the  option  of 
generating  the  input  sequence (s)  internally,  rather  than 
providing  the  values  in  the  input  file.  Appendix  J  includes 
the  software  flowcharts  of  the  main  program  and  the 
subroutine  ITRATE.  Also  included  in  this  appendix  are  two 
example  problems  that  demonstrate  the  capabilities  of 
STATEQ.FOR. 

B.   PLOTTING  PROGRAM 
1.   PLOTDAT.FOR 

The  sole  purpose  of  the  program  PLOTDAT.FOR  is  to 
create  2-dimensional  (2-D)  graphs  of  values  read  from  an 
input  file.  The  program  prompts  the  user  for  the  name  of 
the  input  file  and  will  create  up  to  nine  2-D  plots,  each 
consisting  of  up  to  999  data  points.  Each  plot  requires 
three  labels: 

1)  the  title  of  the  plot, 

2)  the  x-axis  label  and, 

3)  the  y-axis  label. 

For  plots  that  consist  of  more  than  25  data  points,  the 
program  displays  the  output  by  connecting  the  points  through 
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use  of  a  linear  interpolation  (straight-line)  scheme.  Plots 
of  25  points  or  less  consist  of  the  symbol  *  +  '  at  the 
tabulated  points  only.  The  number  of  data  points  comprising 
a  given  plot,  and  the  plot  labels  comprise  the  header 
information  required  for  each  plot.  In  addition  to  these 
parameters,  the  ordinate  and  abscissa  values  for  each  point 
to  be  plotted  must  be  included  in  the  input  file.  PLOT- 
DAT.  FOR  reads  these  values  according  to  the  format:  fl2.0, 
2x,  fl2.0.  The  first  entry  corresponds  to  the  ordinate 
value  and  the  second  entry,  the  abscissa  value.  The  F- 
format  descriptor  was  chosen  because  its  use  permits  values 
written  using  either  the  E  or  F-format  descriptors  to  be 
read  from  the  file. 

The  program  consists  of  the  main  program  PLOTDAT.FOR 
and  the  subroutines  SCALE  and  GRIDD.  The  main  program  reads 
the  input  file  and  creates  the  plots.  Subroutine  SCALE  is 
called  by  the  main  program  to  scale  the  input  values  so  as 
to  optimize  the  clarity  of  the  plots.  Subroutine  GRIDD  will 
overlay  a  dashed-line  grid  onto  the  plot  if  the  user  elects 
to  have  this  done.  PLOTDAT.FOR  requires  a  Color  Graphics 
Adapter  (CGA)  card  to  display  the  plots  on  the  monitor 
screen.  In  addition,  the  user  can  elect  to  have  a  printed 
hardcopy  of  each  plot  created.  However,  to  facilitate 
printing  of  the  graphs,  the  system  in  use  must  include  a  dot 
matrix  printer.  The  program  will  not  drive  plotters  of  all 
types.   If  the  system  has  an  Extended  Graphics  Adapter  (EGA) 
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card,  rather  than  the  specified  CGA  card,  hardcopy  printouts 
of  the  graphs  cannot  be  created  by  the  program  directly. 

The  plots  included  in  Appendices  A-J  were  created 
using  PLOT DAT. FOR.  Appendix  K  is  a  software  flowchart 
describing  the  structure  of  PLOTDAT.FOR  and  the  subroutines 
SCALE  and  GRIDD. 
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IV.   Conclusions  and  Recommendations 

As  the  final  phase  of  this  project,  the  eleven  programs 
included  in  the  package  were  distributed  on  a  voluntary 
basis  to  students  enrolled  in  digital  signal  processing 
courses.  As  part  of  the  course  requirements,  the  students 
had  to  solve  a  variety  of  signal  processing  problems 
representative  of  the  type  that  the  programs  were  designed 
for.  Throughout  this  software  evaluation  phase,  tht 
students  provided  feedback  as  to  the  utility  of  the 
programs.  While  a  majority  of  this  feedback  was  positive, 
three  areas  of  concern  warrant  attention  in  this  report. 

1.  The  graphics  capability  of  PLOTDAT.FOR  is  limited  to 
machines  with  CGA/EGA  graphics  cards. 

2.  In  order  to  get  the  most  use  out  of  the  ten  problem 
solving  programs,  the  user  must  have  access  to  a 
Fortran  compiler  capable  of  compiling  the  programs  as 
written. 

3.  Because  the  programs  are  file-driven,  the  user  must 
carefully  read  the  header  text  of  each  program  in 
order  to  execute  the  programs  successfully.  Although 
the  example  problems  in  the  header  text  and  the 
corresponding  sample  input  files  seem  to  alleviate 
some  of  the  common  formatting  errors,  new  users 
experienced  some  displeasure  with  the  format  require- 
ments . 

The  first  area  of  concern,  although  valid,  is  consistent 

with   the   advertised   capabilities   of   PLOTDAT.FOR.     As 

graphics  software  becomes  more  advanced,  PLOTDAT.FOR  should 

be  updated  to  incorporate  any  changes  that  increase  the 
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portability  of  the  program.  A  caveat  to  this,  however,  is 
the  obvious  temptation  to  use  sophisticated  software 
designed  for  more  capable  machines  at  the  expense  of  its 
compatibility  with  less  capable  ones.  The  primary  goal  of 
the  plotting  program  is  portability  among  the  broadest 
possible  span  of  target  users. 

The  second  area  of  concern  is  also  somewhat  warranted. 
The  programs  were  optimally  designed  for  use  on  a  machine 
equipped  with  a  suitable  Fortran  compiler.  The  presence  of 
a  compiler  allows  the  user  to  add  source  code  to  the 
programs,  an  option  particularly  useful  in  generating  long 
sequences  of  input  data.  To  this  end,  however,  any  high 
level  language  can  be  used  to  create  the  input  files,  as 
long  as  the  required  data  can  be  stored  in  a  form  compatible 
with  the  programs.  In  brief,  any  Fortran  compiler  would  be 
suitable  for  generating  the  input  data  thus  eliminating  the 
need  for  a  specific  compiler. 

Lastly,  the  dissatisfaction  among  the  students  over  the 
file-driven  versus  menu-driven  design  of  the  programs  may 
warrant  a  future  design  change.  The  principle  concern  was 
the  rather  stringent  input  formats  required  by  the  programs. 
As  the  students  became  more  experienced  with  the  programs, 
however,  these  problems  subsided  somewhat.  Nevertheless, 
the  programs'  input  sections  can  be  restructured  to 
incorporate  the  features  of  both  the  menu  and  the  file- 
driven  designs.    As  envisioned,   in  menu-driven  mode  the 
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programs  would  prompt  the  user  for  each  input  value,  storing 
the  values  in  an  input  file  for  future  use.  This  mode, 
despite  its  time  consuming  mechanics,  would  be  attractive  to 
first-time  users  who  could  use  the  input  files  created  by 
the  programs  as  a  guide  for  subsequent  runs.  Experienced 
users  would  create  the  required  input  files  and  run  the 
programs  in  the  file-driven  mode.  This  mode  is  already 
incorporated  in  the  programs  as  they  exist.  The  redesign  of 
the  programs;  therefore,  would  only  require  incorporation  of 
a  menu-driven  mode.  Such  a  design  change  is  fully  within 
the  capabilities  of  the  Fortran  compiler  used  to  create 
these  programs. 
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APPENDIX  A 

Two  digital  filter  designs  are  developed  in  this  section  to 
demonstrate  the  performance  of  the  program  DIGFREQ.FOR. 
An  analysis  of  the  designs  includes  a  listing  of  the  input 
required  to  execute  the  program  and  the  corresponding  output 
that  is  produced.  The  plotting  program  PLOTDAT.FOR  was 
used  to  plot  the  output  data  and  hard  copies  of  these  plots 
are  also  included.  The  software  flowchart  of  the  program  is 
included  as  the  last  pages  of  this  appendix. 

The  variable  names  listed  below  are  used  in  the  Fortran 

source   code   of   DIGFREQ.FOR   and   in   the   corresponding 

flowcharts. 

numsys  -  The  integer  value  that  specifies  the  number  of 
distinct  filter  equations  whose  parameters  occur 
in  the  input  file. 
L  -  The  integer  value  that  specifies  the  order  of 

the  numerator  polynomial. 
N  -  The  integer  value  that  specifies  the  order  of 
the  denominator  polynomial, 
dsorce  -  The  character  string  'F*  or  'S'  denoting  whether 
the  system  coefficients  are  to  be  read  from  the 
input  file  (F)  or  generated  (S)  through  use  of 
the  subroutine  COEFF. 
thetaO  -  The  starting  value  of  9  (rad) . 

numpts  -  The  integer  value  that  specifies  the  desired 
number  of  frequency  points, 
yscal  -  The   character   string   'STD1   or   'LOG1   that 
specifies  whether  standard  magnitude  (STD)  or 
magnitude  expressed  in  decibels  (LOG)  is  to  be 
computed. 
b()  -  The  array  containing  the  numerator  coefficients. 
c()  -  The  array  containing  the  denominator  coeffi- 
cients . 
mh ( )  -  The  array  containing  the  magnitude  values  of 

the  computed  frequency  response, 
ph ( )  -  The  array  containing  the  phase  values  (degrees) 
of  the  computed  frequency  response. 
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Example  #1 

This  example  is  identical  to  the  sample  problem  found  in 
the  header  text  of  the  program.  The  system  is  a  first  order 
low-pass  filter  with  a  pole  at  z  =  0.5,  and  a  zero  at  z  =  0.0. 
The  filter  transfer  function,  in  the  form  of  Equation  (3.1),  is: 


H(z)  =   (A.l) 

z  -  .  5 


The  goal  is  to  calculate  the  frequency  response  of  the  filter 
for  frequencies  in  the  range:  0  <  9  <  3.14159  (rad)  .  The 
listings  that  follow  include  the  input  file  DIGFREQ.TST 
required  to  produce  11  output  points  and  the  tabular  output 
file  DIGFREQ.OUT.  Also  included  are  plots  of  the  output  for 
101  frequency  points.  An  analysis  of  the  data  confirms  the 
low-pass  nature  of  the  filter. 

DIGFREQ.TST 


1 

001  001        F         STD 

.314159  0.0         011 

1.0  0.0 

1.0  -.5 
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DIGFREQ.OUT 

INPUT  DATA  FOR  SYSTEM  #  1 

INPUT  DATA  SOURCEFILE:  DIGFREQ.TST 

DEGREE  OF  NUMERATOR  =    1 

DEGREE  OF  DENOMINATOR  =    1 

dsorce  =  F 

NUMBER  OF  FREQUENCY  POINTS  =   11      MAGNITUDE  OPTION 

STARTING  VALUE  OF  THETA  =   . 000000E+00 

INCREMENT  OF  THETA  =   .314159E+00 

THE  NUMERATOR  COEFFICIENTS  b(0),b(l)...b(L)  ARE: 

.lOOOE+01     . 0000E+00 

THE  DENOMINATOR  COEFFICIENTS  c (0) , c (1) . . . c (N)  ARE: 
•lOOOE+01    -.5000E+00 

OUTPUT  DATA  FOR  SYSTEM  #  1 


=  STD 


THETA 

MAGNITUDE 

PHASE 

(RADIANS) 

(DEGREES) 

.000000E+00 

.200000E+01 

.000000E+00 

.314159E+00 

.182897E+01 

-.164149E+02 

.628318E+00 

.150588E+01 

-.262677E+02 

.942477E+00 

.122886E+01 

-.298071E+02 

.125664E+01 

.103088E+01 

-.293546E+02 

.157080E+01 

.894428E+00 

-.265651E+02 

.188495E+01 

.800894E+00 

-.223862E+02 

.219911E+01 

.737654E+00 

-.173608E+02 

.251327E+01 

.696900E+00 

-.118186E+02 

•282743E+01 

.674038E+00 

-.597793E+01 

•314159E+01 

.666667E+00 

,Mn  nx?  OTTM    CVCT 

-.484184E-04 

I'M  4      -\                  — 
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Figure  A.l   Magnitude  response  of  a  low-pass  filter 

Example  #1. 
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Figure  A. 2  Phase  response  of  a  low-pass  filter 

Example  #1. 
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Open  input  file. 
read  numsys. 


>  For  n  =  1 ,  numsys . 


Read  L,  N,  dsorce,  yscal . 
Read  dlthta,  thetaO,  numpts. 


Write  input  data  into 
file:  DIGFREQ.OUT.    t 


TEST 


BATCH 


Call  dfresp  to  calculate 
frequency  response. 


I 
I 


<r 


Write  results  to  files 
DIGFREQ.DAT  and  DIGFREQ.OUT. 


(   end) 


Call  COEFF  to  generate! 
arrays  b()  and  c(). 


I 


<s> 


->  /  Write  input  data 

onto  monitor  screen. 


Figure  A. 3   DIGFREQ.FOR  Software  Flowchart. 
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Generate  arrays  b()  and  c() 
according  to  user  provided 
algorithm. 


® 


Figure  A. 4   COEFF  Subroutine  Flowchart 
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i 


For  np  =  1,  numpts. 


thetav()  =  thetaO  +  (np-1) *dlthta 


nun  =  b(0) 
den  =  c(0) 
2    =   exp(j9) 


For 


k  -  1,    L.  K- 


nuia  =   z  *num  +  b  ( k ) 


For  k  -   1,    N. 


*- 


den  =   z*den  +  c(k) 


h  =  num/den 


mh(np)  =  magnitude  of  h 
ph(np)  =  phase  (degrees)  of  h 


■^    mh(np)  -  20*log(mh(np) ) 


\1/ 


® 


Figure  A. 5   DFRESP  Subroutine  Flowchart 
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Appendix  B 

A  fifth-order,  low-pass  filter  is  used  in  this  appendix 
to  demonstrate  the  performance  of  the  program  ANLGFREQ. FOR. 
The  filter  transfer  function  is  in  the  form  of  Equation 
(3.2).  The  analysis  that  follows  compares  the  theoretical 
frequency  design  specifications  of  the  filter  to  the 
frequency  response  computations  produced  by  the  program. 
The  software  flowcharts  of  the  program  ANLGFREQ. FOR  and  the 
subroutine  AFRESP  are  included  as  the  last  pages  of  this 
appendix. 

The  variable  names  listed  below  are  used  in  the  Fortran 

source   code   of   the   program   and   in   the   corresponding 

flowcharts . 

numsys  -  The  integer  value  that  specifies  the  number  of 
distinct   filter   equations   whose   parameters 
occur  in  the  input  file. 
L  -  The  integer  value  that  specifies  the  order  of 

the  numerator  polynomial. 
N  -  The  integer  value  that  specifies  the  order  of 
the  denominator  polynomial. 
omegaO  -  The  starting  value  of  w  (rad/s)  for  which  the 

frequency  response  is  to  be  calculated, 
dlomga  -  The  increment  of  w  (rad/s) . 

numpts  -  The  integer  value  that  specifies  the  desired 
number  of  frequency  points, 
yscal  -  The   character   string   'STD'   or   'LOG1   that 
specifies  whether  standard  magnitude  (STD)  or 
magnitude  expressed  in  decibels  (LOG)  is  to  be 
computed. 
b()  -  The   array   containing   the   numerator   coeffi- 
cients . 
a()  -  The  array  containing  the  denominator  coeffi- 
cients . 
mh  ( )  -  The   array  containing  the  computed  magnitude 

value  for  each  frequency  point. 
ph()  -  The  array  containing  the  computed  phase  value 
(degrees)  for  each  frequency  point. 
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Example  #1 

A  fifth-order  Chebyshev  Low-Pass  Filter  has  the  transfer 
function: 

62268.8 
H(s)  = — 

s5  +  10.605s4  +  337.5s3  +2342.25s2  +  23236.9s  +  62268.8 

(B.2) 
The  filter  was  designed  to  have  a  ripple  passband  edge 
frequency  of  w  =  15.0  (rad/s)  and  a  maximum  ripple  of  2  dB 
[Ref.  l:pp.  630-637].  The  input  file  ANLGFREQ.IN  listed 
below  provides  the  inputs  necessary  for  ANLGFREQ . FOR  to 
compute  the  magnitude  (dB)  and  phase  (Deg)  response  of  this 
filter  across  the  frequency  range:   0  <  w  <  20  (rad/s) . 

As  can  be  seen  from  both  the  tabular  output  and  the 
accompanying  plots  the  filter  specifications  have  been  met. 
The  magnitude  of  0  db  at  frequency  w  =  0  is  characteristic 
of  this  type  of  normalized  low-pass  filter.  The  edge  of  the 
ripple  passband  has  a  magnitude  of  -2  dB  at  w  =  15  (rad/s) 
and  the  2  dB  ripple  is  not  exceeded  within  the  ripple 
passband. 

ANLGFREQ.IN 


1 

000        005        021        LOG 

1.0        0.0 

62268.8 

1.0        10.605     .3375E03   2342.25    23236.9    62268.8 
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ANLGFREO.OUT 

INPUT  DATA  FOR  SYSTEM  #  1 

INPUT  DATA  SOURCEFILE:  ANLGFREQ.IN 

DEGREE  OF  NUMERATOR  =    0 

DEGREE  OF  DENOMINATOR  =    5 

NUMBER  OF  FREQUENCY  POINTS  =   21      MAGNITUDE  OPTION  =  LOG 

STARTING  VALUE  OF  OMEGA  =   .000000E+00 

INCREMENT  OF  OMEGA  =   . 100000E+01 

THE  NUMERATOR  COEFFICIENTS  b(0),b(l)...b(L)  ARE: 

.6227E+05 

THE  DENOMINATOR  COEFFICIENTS  a ( 0 ) , a ( 1) . . . a (N)  ARE: 

.1000E+01        .1060E+02       .3375E+03       .2342E+04 
.2324E+05     .6227E+05 

OUTPUT  DATA  FOR  SYSTEM  #  1 

OMEGA  MAGNITUDE (dB)  PHASE 

(rad/s)  (DEGREES) 

.000000E+00       .000000E+00  .000000E+00 

.lOOOOOE+01  -.260284E+00  -.209105E+02 

.200000E+01  -.868081E+00  -.395377E+02 

.300000E+01  -.149418E+01  -.553515E+02 

.400000E+01  -.189199E+01  -.691887E+02 

•500000E+01  -.193554E+01  -.823632E+02 

.600000E+01  -.158803E+01  -.963804E+02 

.700000E+01  -.917171E+00  -.112999E+03 

.800000E+01  -.196446E+00  -.133940E+03 

.900000E+01       .423856E-01  -.159062E+03 

•100000E+02  -.519360E+00  .175548E+03 

.110000E+02  -.143810E+01  .153702E+03 

.120000E+02  -.198221E+01  .134785E+03 

.130000E+02  -.158172E+01  .114249E+03 

•140000E+02  -.216956E+00  .804525E+02 

•150000E+02  -.201998E+01  .233437E+02 

.160000E+02  -.831394E+01  -.135395E+02 

.170000E+02  -.140297E+02  -.300361E+02 

.180000E+02  -.187218E+02  -.391769E+02 

•190000E+02  -.226985E+02  -.451868E+02 

.200000E+02  -.261739E+02  -.495617E+02 


END  OF  RUN,  SYSTEM  #1 
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Figure  B.l   Magnitude  response  of  a  Chebyshev  Low-Pass 

Filter  -  Example  #1. 
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Figure  B.2   Phase  response  of  a  Chebyshev  Low-Pass 

Filter  -Example  #1. 
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Open  input  file. 
Read  numsys. 


For  n  =  1,  numsys 


Read  L,  N,  numpts,  yscal 
Read  dlomga,  omegaO. 
Read  b() ,  c() . 


Conduct  error  checks. 


Write  input  data  to  ANLGFREQ.OUT 


TEST 


BATCH 


Call  AFRESP  to  calculate 
frequency  response. 


® 


1 


END 


•>  /Write  input  data 

onto  monitor  screen 


Write  results  to  files 
ANLGFREQ.OUT  and  ANLGFREQ.DAT 


Figure  B.3   ANLGFREQ . FOR  Software  Flowchart. 
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For  np  =  1 ,  numpts. 


omegav()  =  omegaO  +  (np-1) *dlomga 


num  =  b ( 0 ) 
den  =  a(0) 
s  =  jw 


For  k  =  1,  L. 


num  =  s*num  +  b(k) 


For  k  =  1,  N 


den  =  s*den  +  a(k) 


h  =  num/den 


mh(np)  =  magnitude  of  h 
ph(np)  =  phase  (degrees)  of  h 


N 


-> 


mh(np)  =  20*log(mh(np) ) 


\1/ 


® 


Figure  B.4   AFRESP  Subroutine  Flowchart. 
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Appendix  C 

As  a  practical  exercise  to  demonstrate  the  performance 
of  DFT.FOR,  two  sample  sequences  were  generated  and  the 
program  DFT.FOR  was  used  to  compute  either  the  DFT  or  the 
IDFT  of  the  sequences.  Contained  in  this  appendix  is  a 
brief  analysis  of  the  chosen  examples  including  listings  of 
the  output  produced  by  the  program.  The  software  flowcharts 
describing  DFT.FOR  and  the  subroutines  DFT,  INVDFT,  and 
SAMPLE  are  also  included. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  the  program  and  in  the  corresponding 
flowcharts . 

N  -  The  integer  value  that  specifies  the  number  of 

complex  samples  contained  in  the  input  sequence 

xin( ) . 
dsorce  -  The  character  string  ' F'  or  '  S'  that  specifies 

whether  the  input  data  is  to  be  read  from  the 

input  file  (F)  or  generated  (S)  through  use  of 

the  subroutine  SAMPLE, 
option  -  The   character   string   'DFT'   or   •  INV*   that 

specifies  the  computation  to  be  performed. 
xin()  -  The  complex  array  containing  the  N  samples  of 

the  input  sequence.   A  sequence  consisting  of 

only  'real'  numbers  is  stored  as  values  having 

an  'imaginary'  part  of  0.0. 
xout ( )  -  The   complex   array   containing   the   N   output 

values, 
xmag ( )  -  The  array  containing  the  N  values  of  the  output 

magnitude, 
xph ( )  -  The  array  containing  the  N  values  of  the  output 

phase  (Degrees) . 
wm  -  The  complex  value:  wm  =  e~J27rk/N. 
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Example  #1 

For  the  first  example  problem  a  unit  ramp  sequence 
consisting  of  5  values  was  input  to  DFT.FOR.  The  goal  was 
to  compute  the  DFT  of  the  sequence.  This  example  problem  is 
also  developed  in  the  header  text  of  DFT.FOR  and  can  be  run 
by  the  user  by  selecting  Test  Mode  and  entering  'DFT.TST1 
when  prompted  for  the  name  of  the  input  file.  The  listings 
that  follow  include  the  input  file  DFT.TST  and  the  tabular 
output  file  DFT. OUT. 

DFT.TST 


DFT 


005 

F 

0.0 

0.0 

1.0 

0.0 

2.0 

0.0 

3.0 

0.0 

4.0 

0.0 
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DFT . OUT 


INPUT  DATA  SOURCEFILE:  DFT.TST 
VALUE  OF  N  =    5      dsorce  =  F 


option  =  DFT 


INPUT  DATA 


SAMPLE    # 

REAL 

IMAGINARY 

0 

.000000E+00 

.000000E+00 

1 

.100000E+01 

.000000E+00 

2 

.200000E+01 

.000000E+00 

3 

.300000E+01 

.OOOOOOE+00 

4 

.400000E+01 

.OOOOOOE+00 

OUTPUT 

DATA 

[PLE    #                REAL 

IMAGINARY 

MAGNITUDE 

PHASE 

(DEGREES) 

0 

.100000E+02 

.OOOOOOE+00 

.100000E+02 

.OOOOOOE+00 

1 

-.250000E+01 

.344096E+01 

.425325E+01 

.12S000E+03 

2 

-.250000E+01 

.312300E+00 

.262866E+01 

•162000E+03 

3 

-.250000E+01 

-.312299E+00 

.262866E+01 

-.162000E+03 

4 

-.250000E+01 

-.344096E+01 

.425326E+01 

-.126000E+03 
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Example  #2 

As  an  extension  to  the  first  example  problem  and  to 
demonstrate  the  IDFT  option,  the  DFT  results  of  the  first 
problem  were  input  to  the  program  and  the  IDFT  was  computed. 
As  one  would  expect,  the  original  unit  ramp  sequence  was 
generated  confirming  the  ability  of  the  program  to  compute 
either  the  DFT  or  its  inverse,  the  IDFT.  Numerical  roundoff 
corresponding  to  the  single  precision  accuracy  of  DFT. FOR 
accounts  for  the  slight  deviation  between  the  original  unit 
ramp  sequence  and  the  results  produced  by  this  example. 

DFT. IN 


005        F  INV 

.10000E02  0.0 
-.2500E01  .344096E01 
-.2500E01  .812300 
-.2500E01  -.812299 
-.2500E01  -3.44096 
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DFT.OUT 


INPUT  DATA  SOURCEFILE:  DFT.IN 
VALUE  OF  N  =   5      dsorce  =  F 


option  =  INV 


INPUT  DATA 


PLE    $ 

f               REAL 

IMAGINARY 

0 

.100000E+02 

.000000E+00 

1 

-.250000E+01 

.344096E+01 

2 

-.250000E+01 

.812300E+00 

3 

-.250000E+01 

-.812299E+00 

4 

-.250000E+01 

-.344096E+01 

OUTPUT 

DATA 

[PLE    # 

REAL 

IMAGINARY 

MAGNITUDE 

PHASE 
(DEGREES) 

0 

.OOOOOOE+00 

•238419E-06 

.238419E-06 

.900000E+02 

1 

.999998E+00 

-.210175E-06 

.999998E+00 

-.120422E-04 

2 

.200000E+01 

.136523E-06 

.200000E+01 

.391109E-05 

3 

.300000E+01 

.358854E-06 

.300000E+01 

.685361E-05 

4 

.400000E+01 

•2985S3E-06 

.400000E+01 

.427659E-05 
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Open  input  file. 
'Read  N,  dsorce,  option. 


Write  input  data  to  files 
DFT.OUT  and  DFT.DAT.      > 


<D 


Convert  results  from  real  and 
imaginary  to  magnitude  and  phase. 


Write  results  to  files 
DFT.OUT  and  DFT.DAT. 


(end] 


Call  SAMPLE  to 
generate  input:  xin() 


>/ Write  input  data 
onto  monitor  screen. 


Call  INVDFT  to 
compute  the  IDFT. 


I 


<D 


Figure  C.l   DFT.FOR  Software  Flowchart. 
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1 


Generate  xin()  according  to 
user  provided  algorithm. 


Figure  C.2   SAMPLE  Subroutine  Flowchart 
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© 


■>  For  i  =  1,  N-l 


Conjugate  each  xin(i). 


Call  DFT  to  compute  the  DFT 


^  For  i  =  0,  N-l. 


Conjugate  each  xout(i) 


Figure  C.3   INVDFT  Subroutine  Flowchart 
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N 


For  k  =  0,  N-l 


wm  =  e~  D27rk/N 


xout(k)  =  xin(N-l) 


For  1  =  N-2,  0,  -1. 


xout(k)  =  xout(k)*wm  +  xin(l) 


<- 


xout(0)  =  xin(0) 


Figure  C.4   DFT  Subroutine  Flow  Chart. 
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Appendix  D 

Three  example  problems  are  developed  in  this  appendix  to 
demonstrate  the  program  PRDGRM.FOR.  Example  #1  is  a 
demonstration  of  the  program  using  a  short  input  sequence. 
A  listing  of  both  the  input  sequence  and  the  output  sequence 
are  included  in  the  analysis.  Examples  #2  and  3  require 
long  sequences  of  data  and  therefore  only  plots  of  the  input 
and  output  sequences  are  included.  The  software  flowchart 
of  PRDGRM.FOR  is  included  as  the  last  page  of  this  appendix. 
Since  the  flowcharts  of  the  subroutines  SAMPLE  and  DFT  were 
presented  in  Appendix  C,  they  are  not  repeated  in  this 
appendix. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  PRDGRM.FOR  and  in  the  corresponding  flow- 
charts . 

N  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  array  xn ( ) . 
dsorce  -  The  character  string  ' F'  or  'S1  that  specifies 
whether  the  input  data  is  to  be  read  from  the 
input  file  (F)  or  generated  (S)  through  use  of 
the  subroutine  SAMPLE, 
yscal  -  The   character   string   'STD1   or   'LOG1   that 
specifies  whether  the  output  sequence  is  to  be 
expressed  as  standard  (STD)   or  decibel   (LOG) 
magnitude, 
xn  ( )  -  The   complex   array   containing   the   N   input 
values.    A  sequence  consisting  of  only  real 
numbers  is  stored  as  values  having  an  imaginary 
part  of  0.0. 
xk()  -  The  complex  array  containing  the  DFT  sequence 
corresponding  to  xn ( ) ,  i.e.,  xk()  =  DFT[xn()]. 
Sxx()  -  The   array   containing   the   N   values   of   the 
periodogram  sequence.   This  array  contains  the 
output  sequence  of  the  program. 
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Example  #1 

Because  PRDGRM.FOR  uses  the  DFT  algorithm  as  part  of 
the  periodogram  computation,  a  simple  demonstration  of  the 
program's  accuracy  is  to  compare  the  results  of  PRDGRM.FOR 
to  the  results  of  DFT. FOR  using  the  same  input  sequence  for 
both  programs.  The  sequence  chosen  was  the  five  samples  of 
the  unit  ramp.  The  listings  that  follow  include  the  input  file 
PRDGRM.TST  required  to  run  this  problem,  as  well  as  the 
tabular  output  file  PRDGRM.OUT  containing  the  computed 
results.   The  DFT  results  were  presented  in  Appendix  C. 

By  comparing  the  output  sequences  of  the  two  programs  it 
is  easy  to  see  the  relationship  between  the  DFT  and  the 
periodogram  as  described  by  Equation  (3.6). 

This  example  problem  also  appears  in  the  header  text  of 
PRDGRM.FOR.  The  user  can  run  this  problem  by  selecting 
Test  Mode  and  entering  'PRDGRM.TST'  as  the  input  file  name. 

PRDGRM.TST 

STD 


005 

F 

0.0 

0.0 

1.0 

0.0 

2.0 

0.0 

3.0 

0.0 

4.0 

0.0 
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PRDGRM.OUT 


INPUT  DATA  SOURCEFILE:  PRDGRM.TST 

VALUE  OF  N  =    5      dsorce  =  F      MAGNITUDE  OPTION  =  STD 


INPUT  DATA 
xn() 

n 

0 

1 

2 
3 

4 

REAL 
.OOOOE+00 
.1000E+01 
.2000E+01 
.3000E+01 
•4000E+01 

OUTPUT  DATA 

IMAGINARY 
.OOOOE+00 
.OOOOE+00 
.0000E+00 
.0000E+00 
.OOOOE+00 

k 
0 
1 
2 
3 
4 

Sxx(k) 
.2000E+02 
•3618E+01 
.1382E+01 
.1382E+01 
.3618E+01 
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Example  #  2 

A  low-pass  filter  presented  earlier  had  the  transfer 

function: 

z 
H(z)   =   

z  -  .  5 

(D.l) 

The   impulse   response   of   this   filter   can   be   computed 

iteratively  by  the  corresponding  difference  equation: 

y(n)  =  x(n)  +  .5y(n-l)  f  n  =  0,  1,  ...,  N-l 

where:   x(n)  =  1.0   at  n  =  0 

0.0   otherwise 

y(-l)  =  0.0 

(D.2) 

The  performance  of  PRDGRM.FOR  can  be  evaluated  by 
computing  the  periodogram  of  the  resulting  impulse  response 
and  comparing  the  results  to  the  frequency  response  of  the 
filter.  The  frequency  response  was  computed  previously 
using  DIGFREQ.FOR  and  a  plot  of  the  frequency  response 
appears  ir.  Appendix  A. 

The  subroutine  SAMPLE  was  used  to  generate  200  samples 
of  the  filter's  impulse  response.  Included  on  the  page  that 
follows  is  a  plot  of  the  log  periodogram  sequence.  The 
results  produced  by  PRDGRM.FOR  as  well  as  those  produced  by 
DIGFREQ.FOR  confirm  the  low-pass  nature  of  the  filter.  The 
disparity  of  the  plots  can  be  attributed  somewhat  to  the 
implied  rectangular  windowing  of  a  finite-length  sequence 
used  as  an  input  to  the  periodogram  algorithm.  Because  of 
this  windowing  effect,  the  use  of  the  periodogram  as  a 
spectral  estimation  technique  is  somewhat  limited. 
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Figure  D.l   Periodogram  of  a  low-pass  filter's  impulse 

response  -  Example  #2. 
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Example  #  3 

As  a  final  demonstration  of  PRDGRM . FOR ,  the  subroutine 

SAMPLE  was  used  to  generate  the  input  sequence  according  to 

the  equation: 

x(n)    =    2  .  0cos(27rn500/5000) 

(D.3) 

The  sequence  consists  of  N  =  200  samples.  Plots  of  the 
input  sequence  as  well  as  the  output  sequence  are  included 
on  the  pages  that  follow.  For  this  sequence,  the  frequency 
of  the  continuous-time  signal  is  f  =  500  Hz  and  the  sampling 
frequency  is  fs  =  5000  Hz.  Since  5000  Hz  corresponds  to  0  = 
2?r  rad,  the  periodogram  should  peak  at  0  =  tt/5  rad,  the 
digital  frequency  that  corresponds  to  f  =  500  Hz.  To 
demonstrate  the  ability  of  the  program  to  convert  the  output 
to  decibels,  the  input  parameter  yscal  was  assigned  the 
value:   'LOG' . 

An  analysis  of  the:  plotted  output  confirms  the  an- 
ticipated results.  The  signal,  consisting  of  a  pure 
sinusoid,  has  a  digital  frequency  of  it/ 5  rad  when  sampled 
at  5000  Hz.  The  plot  of  the  periodogram  remains  below  0  dB 
for  all  frequencies  except  0  =  tt/5  rad. 
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Input  sequence  x(n) 
Example  #3 


=    2cos(27rn500/5000) 
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Figure  D.3   Periodogram  of  a  sinusoid  -  Example  #3 
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'Open  input  file. 
Read  N,  dsorce,  yscal , 


Conduct  error  checks . 


Call  SAMPLE  to 
generate  input:  xin( 


Read  xn()  from  file. 


TEST 


•>  /write  input  data 
/  onto  monitor  screen. 


BATCH 


'Write  input  data  to  files 
PRDGRM.OUT  and  PRDGRM.DAT. 


Call  DFT  to  compute  the  DFT: 
xk  ( )  =  DFT [ xn ( )  ]  . 


Write  results  to  files 
PRDGRM.OUT  and  PRDGRM.DAT. 


(end) 


Figure  D.4   PRDGRM.FOR  Software  Flowchart. 
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Appendix  E 

As  a  demonstration  of  the  capabilities  of  CONCORDT.FOR 
this  appendix  presents  four  example  problems.  Each  example 
problem  demonstrates  one  of  the  following  computations: 

1.  Circular  convolution. 

2.  Linear  convolution. 

3.  Circular  correlation. 

4.  Linear  correlation. 

A  brief  analysis  of  the  output  generated  by  the  program 
is  included  for  each  problem.  The  examples  that  use  short 
data  sequences  include  tabular  listings  of  the  input  and 
output  values.  The  examples  that  require  longer  sequences 
include  plots  of  the  input  and  output  sequences  as  generated 
by  PLOTDAT.FOR.  The  last  pages  of  this  appendix  are  the 
flowcharts  of  CONCORDT.FOR  and  the  subroutine  ZERO PAD. 
Flowcharts  of  subroutines  DFT,  INVDFT,  SAMPL1  and  SAMPL2  are 
not  included  in  this  appendix  as  they  have  been  presented 
previously. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  CONCORDT.FOR  and  in  the  corresponding 
flowcharts. 

Nl  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xnl()  . 

N2  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xn2 ()  . 
dsrcel  -  The  character  string  'F1  or  'S'  that  specifies 
whether  the  input  sequence  xnl  ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  SAMPL1 . 
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dsrce2  -  The  character  string  'F1  or  'S'  that  specifies 


whether  the  input  sequence  xn2 ( )  is  to  be 
from   the   input   file   (F)   or   generated 
through  use  of  the  subroutine  SAMPL2 . 
option  -  The   character   string   that   specifies 
operation  to  be  performed  as  follows: 
Linear  convolution, 
Linear  correlation, 
Circular  convolution, 
Circular  correlation, 
complex  input  sequence  of  length 


read 
(S) 

the 


xnl( 
xkl( 

xn2  ( 
xk2  ( 

xn3  ( 
xk3  ( 


The 
The 


1 LCON ■ 
' LCOR ' 
■CCON* 
'CCOR1 
first 


sequence  containing 
array  xnl(),  i.e.,  xkl() 
The  second  complex  input 
The  sequence  containing 
array  xn2 ( ) ,  i.e.,  xk2 ( ) 
The  complex  output  sequence. 
The  sequence  containing  the 


the  DFT  values  of 
=  DFT[xnl() ] . 
sequence  of  length 
the  DFT  values  of 
=  DFT[xn2 () ] . 


Nl. 
the 

N2. 
the 


DFT  values  of  the 


array  xn3(),  i.e.,  xk3 ( )  =  DFT[xn3()] 
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Example  #1 

The  circular  convolution  of  the  two  sequences:  xnl ( )  = 
[  1  3  5  7  ]  and  xn2 ( )  =  [  2  4  1  8  ]  is  demonstrated  in 
this  example.  The  listings  that  follow  include  the  input 
file  CONCORDT.IN  and  the  tabular  output  file  CONCORDT. OUT. 
The  result  of  the  circular  convolution  of  these  two 
sequences  can  be  easily  verified  by  manually  performing  the 
calculations.  Manual  calculation  results  in  the  sequence 
xn3()  =  [  59  57  79  45  ]  .  This  compares  favorably  with 
the  computer  generated  output  sequence. 

CONCORDT.IN 


CCON 


004 

F 

004 

F 

1.0 

0.0 

3.0 

0.0 

5.0 

0.0 

7.0 

0.0 

2.0 

0.0 

4.0 

0.0 

1.0 

0.0 

8.0 

0.0 

CONCORDT.OUT 


INPUT  DATA  SOURCEFILE:  CONCORDT.IN 
Nl  =    4      dsrcel  =  F 
N2  =    4      dsrce2  =  F 
option  =  CCON 


INPUT 

DATA 

n 
0 
1 
2 
3 

xnl 
REAL 
.lOOOOOE+Ol 
.300000E+01 
.500000E+01 
.700000E+01 

0 

IMAGINARY 
.OOOOOOE+00 
.000000E+00 
.OOOOOOE+00 
.OOOOOOE+00 

n 
0 
1 
2 
3 

xn2  () 
REAL 
.200000E+01 
.400000E+01 
.lOOOOOE+01 
.800000E+01 

IMAGINARY 
.OOOOOOE+00 
.OOOOOOE+00 
.OOOOOOE+00 
.000000E+00 

OUTPUT 

DATA 

n 
0 
1 
2 
3 

xn3 

REAL 
.590000E+02 
.570000E+02 
.790000E+02 
.450000E+02 

0 

IMAGINARY 
.190735E-05 
.560272E-06 
.855914E-05 
.551928E-05 
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Example  #2 

The  next  operation  to  be  demonstrated  is  linear 
convolution.  For  this  operation  the  two  input  sequences 
chosen  were:  xnl  ( )  =  [  1  2  3  4  ]  and  xn2  ( )  =  [54  3 
2  1  ]  .  As  in  the  first  example,  the  input  sequences  are 
short  enough  to  check  the  solution  via  manual  calculations. 
The  listings  that  follow  include  both  the  input  file 
CONCORDT. TST,  as  well  as  the  output  file  CONCORDT.  OUT. 
Manual  calculation  of  the  linear  convolution  results  in  the 
sequence:  xn3  ( )  =  [  5  14  26  40  30  20  11  4  ].  The  output 
produced  by  the  program  results  in  the  same  solution. 

This  example  also  appears  in  the  header  text  of  the 
program.  The  user  can  run  this  problem  by  selecting  Test 
Mode  and  entering  '  CONCORDT.  TST '  as  the  name  of  the  input 
file. 

CONCORDT. TST 


LCON 


004 

F 

005 

F 

1.0 

0.0 

2.0 

0.0 

3.0 

0.0 

4.0 

0.0 

5.0 

0.0 

4.0 

0.0 

3.0 

0.0 

2.0 

0.0 

1.0 

0.0 
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CONCORDT . OUT 


INPUT  DATA  SOURCEFILE:  CONCORDT. TST 
Nl  =    4      dsrcel  =  F 
N2  =    5      dsrce2  =  F 
option  =  LCON 


INPUT 

DATA 

xnl 

0 

n 

REAL 

IMAGINARY 

0 

. 100000E+01 

.000000E+00 

1 

.200000E+01 

.000000E+00 

2 

.300000E+01 

.000000E+00 

3 

•400000E+01 

.000000E+00 

xn2 

0 

n 

REAL 

IMAGINARY 

0 

.500000E+01 

.0OO0O0E+0O 

1 

.400000E+01 

.000000E+00 

2 

.300000E+Q1 

.000000E+00 

3 

.200000E+01 

.000000E+00 

4 

•lOOOOOE+01 

.000000E+00 

OUTPUT  DATA 


xn3() 


n 

REAL 

IMAGINARY 

0 

.500000E+01 

.953*74E-06 

1 

.140000E+02 

-.303457E-05 

2 

.260000E+02 

-.756009E-05 

3 

.400000E+02 

-.404610E-05 

4 

.300000E+02 

.217716E-05 

5 

•200000E+02 

.762858E-05 

6 

. 110000E+02 

.892130E-05 

7 

.400001E+01 

.472045E-05 
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Example  #3 

Using  the  same  sequences  that  were  used  in  Example  #1, 
this  example  problem  demonstrates  the  circular  correlation 
operation.  The  input  sequences  are  repeated  here  for  ease 
of  analysis:  xnl()  =  [  1  3  5  7  ]  and  xn2 ( )  =  [  2  4  1 
8  ].  A  listing  of  the  tabular  output  file  CONCORDT.OUT  is 
included  on  the  page  that  follows.  The  result  of  performing 
the  calculations  manually  is  the  sequence  xn3 ( )  =  [  75  61  63 
41  ]  .  This  compares  favorably  with  the  solution  generated 
by  the  program. 
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CONCORDT . OUT 


INPUT  DATA  SOURCEFILE:  CONCORDT. IN 
Nl  =    4     dsrcel  =  F 
N2  =    4      dsrce2  =  F 
option  =  CCOR 


INPUT 

DATA 

xnl 

0 

n 

REAL 

IMAGINARY 

0 

.100000E+01 

.000000E+00 

1 

•300000E+01 

.000000E+00 

2 

.500000E+01 

.000000E+00 

3 

.700000E+01 

.000000E+00 

xn2 

0 

n 

REAL 

IMAGINARY 

0 

.200000E+01 

.000000E+00 

1 

•400000E+01 

.000O00E+0O 

2 

.100000E+01 

.000000E+00 

3 

.800000E+01 

.000000E+00 

OUTPUT 

DATA 

xn3 

0 

n 

REAL 

IMAGINARY 

0 

.750000E+02 

•000000E+00 

1 

.610000E+02 

-.108481E-05 

2 

.630000E+02 

.126364E-05 

3 

•410000E+02 

-.480426E-05 
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Example  #4 

This   final   example   problem   demonstrates   the   linear 

correlation  computation.   The  sequence  xnl ( )  consists  of  128 

samples  of  the  unit  step  function  and  the  sequence  xn2  ( ) 

consists  of  128  samples  of  a  square  wave.   The  goal  is  to 

compute  the  linear  correlation  of  the  two  sequences  i.e.,  the 

sequence:   R()  .   Plots   of  the  two   input  sequences, 
xnlxn2 

xnl  ( )  and  xn2  ( )  ,  as  well  as  the  output  sequence  R()  are 

provided  on  the  pages  that  follow.   Manual  calculation  of  the 

solution  to  this  problem  is  somewhat  impractical.   However, 

the  plotted  data  allows  the  user  to  verify  that  the  results  are 

correct   through   graphical   analysis.     The   wraparound 

phenomenon  discussed  in  Chapter  III  is  evident  from  the  plot 

of  the  output  sequence.   The  actual  non-zero  values  for  the 

linear  correlation  of  these  two  input  sequences,  as  they  are 

defined  in  this  problem,  consists  of  the  computed  output 

sequence  truncated  at  sample  n  =  127. 

The  linear  correlation  of  two  real  sequences  results  in  a 

sequence  that  is  also  real.    Figure  E.4  is  a  plot  of  the 

imaginary  part  of  the  output  sequence  for  this  example 

problem.    These  non-zero  values  result  from  the  use  of 

single-precision  computations  as  part  of  the  DFT  algorithm. 

Since  the  user  will  experience  similar  results,  the  plot  of  the 

imaginary  values  is  included  in  this  analysis. 
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Figure  E.l   Input  sequence  xnl(n)  -  Example  #4 
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Figure  E.2   Input  sequence  xn2(n)  -  Example  #4 
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Figure  E.3   The  result  of  linear  correlation  (real  part) 

Example  #4. 
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Figure  E.4   The  result  of  linear  correlation  (imaginary 

part)  -  Example  #4. 
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/opan  input  fila. 


Read  HI,  darcal. 

Raad  H2,  darca2,  option./ 


>  Call  SAMPL1  Co 

jqanarate  input:  <nlt] 


Call  SAMPL2  to 
ganeraca  input:  xn2 () . 


TEST 


> I  Write  input  data 
onto  aomtor  icrsan. 


'Writa  input  data  to  output  filaa: 
CONCORDT.OUT  and  C0NCORDT.DAT. 


•LCOR'  or 
'LCOM' 


Call  ZEROPAO  to  axtand 
tha  input  saquancaa  to 
length  «3  -  Ml  +  H2  -  1. 


® 


Call   OPT  to  coaputa: 
xJcl()    -  DFT(xnl()  ]. 


•LCOM'    or 
'CCON' 


Por  i  -  o,   M3-1. 


xJc3(l)    -  xJcl ( i )  *xX2 ( i ) 


>  Por  i-o,    N3-1. 


xJcl(i)    -  conjgOcJcl(i)  ) 
xX3(i)    -  xJU(i)*xJc2(i) 


Call    INVDFT   to   conputi 
xn3()     -    IDFT[XX3() J. 


Call    IHVOPT   to  compute: 
xn3()    -    IDFT(x*3()  J. 


/ 


Write    raaults   to    fllea: 
CONCORX3T.DAT    and   CONCOROT .  OOT . 


faro] 

Figure   E.5      CONCORDT.FOR  Software   Flowchart, 
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For  i  =  N,  N3-1 


xn(i)  =  cmplx(0. 0, 0. 0) 


Figure  E.6   ZEROPAD  Subroutine  Flowchart 
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Appendix  F 

The  program  FFT.FOR  computes  either  the  FFT  or  the  IFFT 
of  a  complex  sequence  of  input  data.  This  appendix  contains 
an  example  problem  that  demonstrates  each  of  these  computa- 
tions. The  final  pages  of  this  appendix  are  the  software 
flowcharts  of  the  main  program  FFT.FOR  and  the  subroutines 
FFT,  INVFFT,  and  REVERSAL. 

Development  of  the  FFT  algorithm  is  somewhat  involved 
and  in  any  case  beyond  the  scope  of  this  report.  However, 
in  order  to  make  the  software  flowcharts  and  corresponding 
Fortran  source  code  more  understandable,  the  following 
synopsis  pertains  to  the  FFT  algorithm  as  developed  in 
Chapter  8  of  Reference  1  and  implemented  by  this  program. 
The  variable  names  used  throughout  correspond  precisely  to 
those  presented  in  the  reference. 

The  FFT  computation  for  a  sequence  of  length  N  =  2m 
values  is  broken  up  into  m  stages.  Each  stage  consists  of 
N/2  two-point  DFT  computations  called  'butterflies'.  In  an 
effort  to  increase  the  computational  efficiency  of  the 
algorithm,  each  butterfly  occurring  within  a  given  stage  and 
requiring  use  of  the  same  weighting  factor  (W  =  e~J27rr/N)  is 
computed  in  a  single  loop,  thus  eliminating  the  requirement 
to  recompute  the  weighting  factor  for  each  consecutive 
butterfly.  The  addresses  (array  indices)  of  the  two  values 
that  participate  in  a  butterfly  computation  are  assigned  the 
values:    itop  and  ibot.    The  value  corresponding  to  the 
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separation  between  these  indices  is  the  value  iwidth,  i.e., 

iwidth  =   ibot   -   itop.     The  tradeoff   of  grouping  the 

butterfly  computations  by  their  weighting  factors  is  the 

determination  of  the  correct  participants  for  each  butterfly 

in  the  group.   The  program  determines  the  addresses  of  these 

participants   through  use   of   the  values   itop,   ibot  and 

iwidth.   The  efficiency  gained  by  grouping  the  butterflies 

according  to  their  weighting  factors  is  a  function  of  the 

number  of  values  (N)  comprising  the  input  sequence. 

The  listing  below  further  explains  the  function  of  the 

individual  variables  as  they  appear  in  the  software. 

m  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input 
sequence,  i.e.,  N  =  2m. 

dsorce  -  The  character  string  'F1  or  'S1  that  specifies 
whether  the  input  sequence  xtmp ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  SAMPLE. 

option  -  The   character   string   ' FFT •   or   'INV   that 
specifies  the  computation  to  be  performed. 

xtmp ( )  -  The  complex  input  sequence  of  length  N. 

x()  -  The  array  containing  the  original  input 
sequence  but  in  bit-reversed  order.  After  the 
subroutine  FFT  or  INVFFT  is  called,  this  array 
contains  the  results  of  the  FFT/IFFT  computa- 
tion in  rectangular  form,  i.e.,  (real, 
imaginary) . 

xmag ( )  -  The  array  containing  the  magnitude  values  of 
the  output  sequence, 
xph ( )  -  The  array  containing  the  phase  (degrees)  values 
of  the  output  sequence. 
L  -  The  integer  value  corresponding  to  the  stage 
being  computed. 

iwidth  -  The  integer  value  corresponding  to  the  address 
separation  of  the  participants  in  a  butterfly 
computation, 
itop  -  The  integer  value  corresponding  to  the  array 
index  of  the  first  participant  in  a  butterfly 
computation. 
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ibot  -  The  integer  value  corresponding  to  the  array 
index  of  the  second  participant  in  a  butterfly 
computation, 
ispace  -  The  integer  value  corresponding  to  the  address 
separation  between  first  participants  in 
consecutive  butterflies, 
r  -  The  value  corresponding  to  the  index  of  the 

weighting  factor. 
W  -  The   complex  weighting   factor   W   =   e-j27rr/N 
involved  in  each  butterfly  computation, 
maddr  -  The  integer  value  corresponding  to  the  original 
address  of  the  elements  of  the  input  sequence, 
newaddr  -  The   integer  value  corresponding  to  the  new 
address   assigned   as   a   result   of   the   bit- 
reversal  algorithm. 
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Example  #1 

This  example  demonstrates  both  the  FFT  and  the  IFFT 
computations.  The  input  sequence  consists  of  N  =  8  (m  =  3) 
samples  of  the  real  sequence  xtmp ( )  =[0  123400 
0  ]  .  The  imaginary  part  of  each  sample  is  assigned  the 
value  0.  Included  on  the  page  that  follows  are  listings  of 
the  input  file  FFT.TST  required  to  run  this  example  problem, 
as  well  as  the  tabular  output  file  FFT. OUT.  In  order  to 
reproduce  the  original  input  sequence,  the  FFT  results  of 
the  sequence  were  input  to  the  program  on  a  second  run  and 
the  IFFT  of  this  sequence  was  computed.  Listings  of  the 
input  and  output  files  corresponding  to  this  second  run  are 
also  included. 

This  example  problem  is  also  developed  in  the  header 
text  of  FFT.  FOR  and  can  be  run  by  the  user  in  Test  Mode  by 
using  the  data  prestored  in  the  input  file  FFT.TST. 
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FFT.TST 


3 

F 

0.0 

0.0 

1.0 

0.0 

2.0 

0.0 

3.0 

0.0 

4.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

FFT 


FFT . OUT 


INPUT    DATA    SOURCEFILE:     FFT.TST 

VALUE    OF   m   =    3  VALUE    OF   N    (2**m)    = 

dsorce   =   F  option  =   FFT 


INPUT  DATA 

INPUT 

DATA 

(BIT-REVERSED  ORDER) 

SAMPLE  # 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

0 

.000000E+00 

.000000E+00 

.000000E+00 

.000000E+00 

1 

.100000E+01 

.000000E+00 

•400000E+01 

.000000E+00 

2 

.200000E+01 

.0O00O0E+00 

.200000E+01 

.OOOOOOE+00 

3 

.300000E+01 

.000000E+00 

.000000E+00 

.000000E+00 

4 

.400000E+01 

.000000E+00 

•100000E+01 

.000000E+00 

5 

.000000E+00 

.000000E+00 

•OOOOOOE+00 

.000000E+00 

6 

.000000E+00 

.000000E+00 

•300000E+01 

.000000E+00 

7 

.00O000E+0O 

.000000E+00 

•OOOOOOE+00 

.000000E+00 

OUTPUT    DATA 


PLE  i 

\             REAL 

IMAGINARY 

MAGNITUDE 

PHASE 
(DEGREES) 

0 

.100000E+02 

.000000E+00 

•100000E+02 

.000000E+00 

1 

-.541421E+01 

-.482843E+01 

.725448E+01 

-.138273E+03 

2 

•200000E+01 

.200000E+01 

•282343E+01 

.450000E+02 

3 

-.258579E+01 

-.828427E+00 

.271525E+01 

-.162236E+03 

4 

•200000E+01 

.000000E+00 

.200000E+01 

.000000E+00 

5 

-.258579E+01 

.328427E+00 

.271525E+01 

.162236E+03 

6 

.200000E+01 

-.200000E+01 

.282843E+01 

-.450000E+02 

7 

-.541421E+01 

.482343E+01 

.725448E+01 

•138273E+03 
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FFT.IN 


3  F 

10.0  0.0 

-5.41421  -4.82843 

2.0  2.0 

-2.58579  -.828427 

2.0  0.0 

-2.58579  .828427 

2.0  -2.0 

-5.41421  4.82843 


INV 


FFT . OUT 


INPUT    DATA   SOURCEFILE:    FFT.IN 

VALUE    OF   m   =    3  VALUE   OF   N    (2**m) 

dsorce   =   F  option   =   INV 


INPUT  DATA 

INPUT  DATA 

(BIT-REVERSED  ORDER) 

SAMPLE  # 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

0 

.100000E+02 

.OOOOOOE+00 

•100000E+02 

.000000E+00 

1 

-.541421E+01 

-.482843E+01 

.200000E+01 

.OOOOOOE+00 

2 

.200000E+01 

.200000E+01 

.200000E+01 

.200000E+01 

3 

-.258579E+01 

-.828427E+00 

.200000E+01 

-.200000E+01 

4 

.200000E+01 

.000000E+00 

-.541421E+01 

-.482843E+01 

5 

-.258579E+01 

.828427E+00 

-.258579E+01 

.828427E+00 

6 

•200000E+01 

-.200000E+01 

-.258579E+01 

-.828427E+00 

7 

-.541421E+01 

.482843E+01 

-.541421E+01 

.482843E+01 

OUTPUT    DATA 


[PLE  j| 

t             REAL 

IMAGINARY 

MAGNITUDE 

PHASE 
(DEGREES) 

0 

.OOOOOOE+00 

.OOOOOOE+00 

.000000E+00 

.OOOOOOE+00 

1 

•100000E+01 

-.782270E-09 

.100000E+01 

-.448207E-07 

2 

•200000E+01 

.437114E-07 

.200000E+01 

.125224E-05 

3 

.300000E+01 

.213557E-07 

.300000E+01 

.417413E-06 

4 

.400000E+01 

.000OO0E+0O 

.400000E+01 

.000000E+00 

5 

-.172853E-05 

-.429291E-07 

.172907E-05 

-.178577E+03 

6 

-.334465E-06 

-.437114E-07 

.335609E-06 

-.177001E+03 

7 

.715256E-06 

.218557E-07 

.715590E-06 

.175021E+01 
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>^ 

TEST 

>^ 

write  input  uaca 
onto  monitor  screen. 

BATCH 

Call  REVERSAL  to  reorder 
the  input  sequence: 
x()  <—  xtmp()  . 


I 


'Write  input  data  to  files: 
FFT.OUT  and  FFT.DAT. 


FFT 


Call  FFT  to  compute  the  FFT: 
x()  =  FFT[x()]. 


I 


© 


INV 


Convert  results  from  real  and 
imaginary  to  magnitude  and  phase. 


'Write  results  to  files: 
FFT.OUT  and  FFT.DAT. 


(end) 


Call  INVFFT  to 
compute  the  IFFT: 
x()  =  IFFT[x() ]. 


I 


<E) 


Figure  F.l   FFT. FOR  Software  Flowchart 
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For  L  =  1,  m. 

ispace  =  2**L 
s  =  N/ispace 
iwidth  =  ispace/2 

For  j  =  0,  iwidth-1. 

r  =  s*j 

W  =  e"J27rr/N 

For  itop  =  j ,  N-2 ,  ispace 


ibot  =  itop  +  iwidth 
tmp  =  x(ibot) *W 
x(ibot)  =  x(itop)  -  tmp 
x(itop)  =  x(itop)  +  tmp 


© 


Figure  F.2   FFT  Subroutine  Flow  Chart 

98 


For  i  =  1,  N-l. 


Conjugate  each  xtmp(i) 


Call  FFT  to  compute  the  FFT: 
xtmp ( )  =  FFT [ xtmp ( ) ] . 


For  i  =  0,  N-l 


Conjugate  each  xtmp(i) 


® 


Figure  F.3   INVFFT  Subroutine  Flowchart 
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® 


For  k  =  0,  N-l 


maddr  =  k 


For  1  =  0,  m-1 


lrmndr  =  mod (maddr, 2) 

newaddr  =  newaddr+lrmndr*2** (m-l-i) 

maddr  =  maddr/ 2 


x( newaddr)  =  xtmp(k) 


® 


Figure  F.4   REVERSAL  Subroutine  Flowchart. 
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Appendix  G 

The  four  computations  that  CONCORFT.FOR  is  capable  of 
performing  are  demonstrated  by  the  example  problems  included 
in  this  appendix.  CONCORFT.FOR,  like  the  other  problem 
solving  programs,  generates  an  output  file  (CONCOR.DAT)  that 
contains  a  listing  of  the  input  sequence(s),  as  well  as  the 
output  sequence  in  a  form  suitable  for  plotting.  Example  #4 
of  this  appendix  includes  plots  of  the  input  and  output 
sequences  used  for  that  problem.  The  plots  were  produced  by 
the  program  PLOTDAT.FOR.  The  final  pages  of  this  appendix 
are  a  flowchart  of  CONCORFT.FOR.  Flowcharts  of  the  six 
subroutines  called  by  CONCORFT.FOR  are  not  included  in  this 
appendix  as  each  was  presented  previously. 

The  variable  names  listed  below  are  used  in  the  Fortran 

source   code   of   CONCORFT.FOR   and   in   the   corresponding 

flowcharts. 

Nl  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xnl()  . 
N2  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xn2  ()  . 
dsrcel  -  The  character  string  'F'  or  'S'  that  specifies 
whether  the  input  sequence  xnl ( )  is  to  be  read 
from   the   input   file   (F)   or   generated   (S) 
through  use  of  the  subroutine  SAMPL1. 
dsrce2  -  The  character  string  'F1  or  'S'  that  specifies 
whether  the  input  sequence  xn2  ( )  is  to  be  read 
from   the   input   file   (F)   or   generated   (S) 
through  use  of  the  subroutine  SAMPL2 . 
option  -  The   character   string   that   specifies   the 
operation  to  be  performed  as  follows: 
' LCON '  =  Linear  convolution, 
'LCOR'  =  Linear  correlation, 


101 


■CCON1  =  Circular  convolution, 
'CCOR'  =  Circular  correlation. 
xnl()  -  The  first  complex  input  sequence  of  length  Nl. 
xtmpl ( )  -  A  dummy  array  used  for  computations  involving 
the  array  xnl(). 
xn2 ( )  -  The  second  complex  input  sequence  of  length  N2 . 
xtmp2 ( )  -  A  dummy  array  used  for  computations  involving 
the  array  xn2 ( ) . 
xn3 ( )  -  The  complex  output  sequence. 
xtmp3()  -  A  dummy  array  used  for  computations  involving 
the  array  xn3 ( ) . 
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Example  #1 

This  example  demonstrates  the  circular  convolution 
operation.  The  input  sequences  consist  of  the  following 
real  values:  xnl  ( )  =  [  1  3  5  7  ]  and  xn2  ( )  =  [241 
8  ]  .  The  result  of  manually  calculating  the  circular 
convolution  of  these  two  sequences  is  the  sequence:  xn3 ( )  = 
[  59  57  79  45  ]  .  The  listings  that  follow  include  the 
input  file  CONCORFT.IN,  required  to  run  this  problem,  and 
the  tabular  output  file  CONCORFT.OUT  containing  the  computed 
results.  As  can  be  seen  from  the  listing  of  CONCORFT.OUT, 
the  computation  produced  the  anticipated  results. 

CONCORFT.IN 


CCON 


004 

F 

004 

F 

1.0 

0.0 

3.0 

0.0 

5.0 

0.0 

7.0 

0.0 

2.0 

0.0 

4.0 

0.0 

1.0 

0.0 

8.0 

0.0 

103 


CONCORFT.OUT 


INPUT  DATA  SOURCEFILE:  CONCORFT.IN 
Nl  =    4      dsrcel  =  F 
option  =  CCON 


N2  = 


dsrce2  =  F 


INPUT 

DATA 

xnl 

0 

n 

REAL 

IMAGINARY 

0 

.100000E+01 

.000000E+00 

1 

.300000E+01 

.000000E+00 

2 

.500000E+01 

.000000E+00 

3 

.700000E+01 

.000000E+00 

xn? 

0 

n 

REAL 

IMAGINARY 

0 

.200000E+01 

.000000E+00 

1 

.400000E+01 

.000000E+00 

2 

.lOOOOOE+01 

.000000E+00 

3 

.800000E+01 

.000000E+00 

OUTPUT 

DATA 

xn3 

0 

n 

REAL 

IMAGINARY 

0 

•590000E+02 

.715256E-06 

1 

•570000E+02 

.262268E-06 

2 

.790000E+02 

- 

.715256E-06 

3 

•450000E+02 

- 

.262268E-06 
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Example  #2 

This  example  problem  is  developed  in  the  header  text  of 
CONCORFT.FOR  and  can  be  run  by  the  user  by  selecting  Test 
Mode  and  using  the  input  data  prestored  in  the  file 
CONCORFT.TST.  The  goal  of  this  example  is  to  compute  the 
linear  convolution  of  the  two  sequences:   xnl()  =  [  1   11 

1  ]  and  xn2()  =  [  2   2   2   2   2  ].   The  sequence  that  should 
result  from  the  operation  is:   xn3 ( )  =[2468864 

2  ].   A  listing  of  the  input  file  CONCORFT.TST  required  to 
run  this  problem  appears  below. 

CONCORFT.TST 


LCON 


004 

F 

005 

F 

1.0 

0.0 

1.0 

0.0 

1.0 

0.0 

1.0 

0.0 

2.0 

0.0 

2.0 

0.0 

2.0 

0.0 

2.0 

0.0 

2.0 

0.0 

A  listing  of  the  tabular  output  file  CONCORFT.OUT  is 
included  on  the  page  that  follows.  The  computed  output 
sequence  compares  favorably  with  the  anticipated  result. 
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CONCORFT . OUT 


INPUT  DATA  SOURCEFILE: 
Nl  =  4  dsrcel  = 
option  =  LCON 

INPUT  DATA 


CONCORFT. TST 
F  N2 


dsrce2  =  F 


xnl 

0 

n 

REAL 

IMAGINARY 

0 

.100000E+01 

.000000E+00 

1 

.100000E+01 

.000000E+00 

2 

. 100000E+01 

•000000E+00 

3 

.100000E+01 

.000000E+00 

xn2 

0 

n 

REAL 

IMAGINARY 

0 

.200000E+01 

"" 

.000000E+00 

1 

.200000E+01 

.000000E+00 

2 

.200000E+01 

.000000E+00 

3 

.200000E+01 

.000000E+00 

4 

.200000E+01 

.000000E+00 

OUTPUT  DATA 


xn3  () 


n 

REAL 

IMAGINARY 

0 

.200000E+01 

.894070E-07 

1 

.400000E+01 

-.421468E-07 

2 

.600000E+01 

-.754979E-07 

3 

.800000E+01 

-.168587E-06 

4 

.800000E+01 

-.894070E-07 

5 

.600000E+01 

.421468E-07 

6 

.400000E+01 

.754979E-07 

7 

.200000E+01 

.168587E-06 
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Example  #3 

Using  the  same  input  sequences  as  Example  #1,  the 
circular  correlation  operation  is  demonstrated  by  this 
problem.  The  input  sequences  are:  xnl()  =  [  1  3  5  7  ] 
and  xn2  ( )  =  [  2  4  1  8  ].  For  this  computation,  the 
anticipated  result  is  the  sequence:  xn3()  =  [  75  61  63 
41  ]  .  A  listing  of  the  tabular  output  file  is  included 
below.  The  computed  output  sequence,  xn3 ( ) ,  compares 
favorably  with  the  anticipated  result. 

CONCORFT.OUT 

INPUT  DATA  SOURCEFILE:  CONCORFT.IN 

Nl  =    4      dsrcel  =  F  N2  =    4      dsrce2  =  F 

option  =  CCOR 


INPUT 

DATA 

xnl 

0 

n 

REAL 

IMAGINARY 

0 

.100000E+01 

.000000E+00 

1 

.300000E+01 

.000000E+00 

2 

.500000E+01 

.000000E+00 

3 

.700000E+01 

.000000E+00 

xn2 

0 

n 

REAL 

IMAGINARY 

0 

.200000E+01 

.000000E+00 

1 

.400000E+01 

.000000E+00 

2 

. 100000E+01 

.000000E+00 

3 

.800000E+01 

.000000E+00 

OUTPUT  DATA 


xn3  () 

n 

REAL 

IMAGINARY 

0 

.750000E+02 

•000000E+00 

1 

.610000E+02 

.198695E-06 

2 

.630000E+02 

.000000E+00 

3 

.410000E+02 

-.198695E-06 
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Example  #4 

This  example  problem  demonstrates  the  linear  correla- 
tion computation.  The  sequence  xnl()  consists  of  128 
samples  of  the  unit  step  function  and  the  sequence  xn2  ( ) 
consists  of  128  samples  of  a  square  wave.  The  goal  is  to 
compute  the  linear  correlation  of  the  two  sequences,  i.e., 

the   sequence:   R()  .   Plots   of   the   two   input  sequences, 

xnlxn2 

xnl()  and  xn2  ( )  ,  as  well  as  the  output  sequence  R()  are 

provided  on  the  pages  that  follow.   As  discussed  previously 

(Example   #4   of   Appendix   E) ,   wraparound   of   the   output 

sequence  is  produced  by  the  program  due  to  the  zero  padding 

required  by  use  of  the  DFT  technique.    The  wraparound 

results  in  non-zero  values  of  the  output  sequence  in  the 

interval:   128  to  254.    The  plot  of  the  output  sequence 

clearly  shows  the  wraparound  phenomenon. 

Example  #4  of  Appendix  E  also  discussed  the  non-zero 

imaginary  output  values  that  are  produced  by  the  program 

CONCORDT.FOR  when  correlating  two  real  input  sequences.   As 

exhibited   by   Figure   G.4,   CONCORFT.FOR   produces   similar 

results.   The  non-zero  values  are  attributed  to  the  single 

precision  FFT  algorithm  used  in  the  correlation  computation. 
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Figure  G.l   Input  sequence  xnl(n)  -  Example  #4 
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Figure  G.2   Input  sequence  xn2(n)  -  Example  #4 
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Figure  G.3   The  results  of  linear  correlation  (real  part) 

Example  #4. 
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Figure  G.4   The  results  of  linear  correlation  (imaginary- 
part)  -  Example  #4. 
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/Open  input  fila. 


Read  HI,  dsrcel. 

Read  M2.  dsrcei,  option. 


Call  SAMPL1  to 
generate  input:  xnl() 


Call  SAMPL2  to 
ganarata  input:  xnli; 


;mode 


TEST 

onto  monitor  screen. 

BATCH 

'Writs  input  data  to  output  (lias: 
CONCORFT.OUT  and  CONCORFT.DAT. 


Call  ZEROPAO  to  extend 

tna  input  saquancas  to 

length: 

M3  -  2««n  >  Ml  *  M2  -  1. 


J 


Call  REVERSAL  Co  raordar  tha 
saquancas  in  bit-reversed  ordar: 
xtnpl()  < —  xnl() 
xtapa ( )  < —  xni ( ) . 


Call  ?TT   to  covputa: 
xtopK)  -  rTr(xtnpl()  ] 
Xtap2()  -  rTTr.xtmp2<)  J. 


xtmpi(i)    »  conjg(xtapl(l) ) 
xtapj(i)    -   rtapl(i)  *xtnp2(i) 


Call    REVERSAL  to    reorder   tha 
sequence    in  bit-ravarsad  ordar: 
xn3()    < —  xtmp3() . 


Call    INVrTT  to  cosputa: 

xnjo  -  irrr[xn3() ). 


'Write    results   to    riles: 
CONCORTr.DAT    and    CONCORFT.  OUT. 


(eHd) 

Figure   G.5      CONCORFT. FOR  Software   Flowchart 
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Appendix  H 

The  program  CONCOR.FOR  will  compute  either  the  linear 
convolution  or  the  linear  correlation  of  two  sequences  of 
input  data,  depending  on  the  option  selected  by  the  user. 
This  appendix  includes  two  example  problems,  each  of  which 
demonstrates  one  of  these  computations.  The  last  pages  of 
this  appendix  are  the  flowcharts  that  describe  CONCOR.FOR 
and  the  subroutines  CONVOL  and  CORREL. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  CONCOR.FOR  and  in  the  corresponding  flow- 
charts. 

option  -  The   character   string   that   specifies   the 
operation  to  be  performed  as  follows: 
1 LCON '  =  Linear  convolution, 
'LCOR'  =  Linear  correlation, 
nsl  -  The  integer  value  denoting  the  starting  point  of 

xnl ( ) . 
nel  -  The  integer  value  denoting  the  ending  point  of 
xnl ( ) . 
dsrcel  -  The  character  string  'F1  or  'S'  that  specifies 
whether  the  input  sequence  xnl ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S)  through 
use  of  the  subroutine  SAMPL1 . 
ns2  -  The  integer  value  denoting  the  starting  point  of 

xn2  ()  . 
ne2  -  The  integer  value  denoting  the  ending  point  of 
xn2  ()  . 
dsrce2  -  The  character  string  'F'  or  'S'  that  specifies 
whether  the  input  sequence  xn2  ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S)  through 
use  of  the  subroutine  SAMPL2 . 
xnl  ( )  -  The  first  input  sequence  of  length  Nl  =  nel- 

nsl  +  1. 
xn2  ( )  -  The  second  input  sequence  of  length  N2  =  ne2- 
ns2  +  1. 
yn()  -  The  output  sequence  of  length  N3  =  Nl  +  N2  -  1 
produced  if  option  =  'LCON1. 
ns3  -  The  integer  value  corresponding  to  the  starting 
point  of  the  output  sequence. 
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ne3  -  The  integer  value  corresponding  to  the  ending 

point  of  the  output  sequence. 
R()  -  The  output  sequence  of  length  N3  =  ne3  -  ns3  + 

1  produced  if  option  =  'LCOR'. 
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Example  #1 

The  first  computation  to  be  demonstrated  is  the  linear 
convolution  of  the  two  sequences:  xnl(n)  =  [  1  1  1  1  ] 
for  -3  <  n  <  0  (nsl  =  -3,  nel  =  0)  and  xn2(n)  =[123 
4  5  ]  for  0  <  n  <  4  (ns2  =  0,  ne2  =  4).  To  run  this 
example  problem  the  input  file  CONCOR.TST  was  created.  A 
listing  of  this  file  appears  below. 

CONCOR.TST 


LCON 

-3  0000  F 
0000  0004  F 
1.0 
1.0 
1.0 
1.0 
1.0 
2.0 
3.0 
4.0 
5.0 


This  example  is  also  developed  in  the  header  text  of 
CONCOR.FOR  and  can  be  run  by  the  user  in  Test  Mode  by 
specifying  the  input  file  CONCOR.TST.  The  computed  output, 
as  it  appears  in  the  file  CONCOR.OUT,  is  included  on  the 
page  that  follows.  In  addition  to  the  tabulated  data,  plots 
of  the  input  and  output  sequences  are  also  included.  The 
plotting  program  PLOTDAT.FOR  will  not  attempt  to  connect  the 
plotted  values  of  sequences  consisting  of  less  than  25 
points.    Instead,  the  symbol  '  +  '  is  placed  on  the  plot  at 
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the  appropriate  locations.   This  example  problem  was  chosen 
to  demonstrate  this  feature  of  PLOTDAT.FOR. 

The  result  of  manually  calculating  the  linear  convolu- 
tion of  the  two  input  sequences  is  the  sequence:  yn()  =  [  1 
3  6  10  14  12  9  5  ] .  This  compares  favorably  with  the 
computer  generated  results. 

CONCOR.OUT 


INPUT  DATA  SOURCEFILE:  CONCOR.TST 
nsl  =    -3    nel  =     0    dsrcel  =  F 
ns2  =     0    ne2  =     4    dsrce2  =  F 
option  =  LCON 


INPUT  DATA 


n 


xnl (n) 


3 

. 100000E+01 

2 

. 100000E+01 

1 

.100000E+01 

0 

•100000E+01 

n 


xn2 (n) 


0 

.100000E+01 

1 

.200000E+01 

2 

.300000E+01 

3 

.400000E+01 

4 

.500000E+01 

OUTPUT  DATA 


n 


yn(n) 


3 

. 100000E+01 

2 

.300000E+01 

1 

.600000E+01 

0 

. 100000E+02 

1 

. 140000E+02 

2 

.120000E+02 

3 

.900000E+01 

4 

.500000E+01 
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Figure  H.l   Input  sequence  xnl(n)  -  Example  #1 
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Figure  H.2   Input  sequence  xn2(n)  -  Example  #1 
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Figure  H.3   The  result  of  linear  convolution  -  Example  #1 
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Example  #2 

This  example  demonstrates  the  linear  correlation  option. 
The  input  sequences  chosen  are  identical  to  those  used  in 
Example  #4  of  Appendix  E.  The  input  sequence  xnl ( )  consists 
of  Nl  =  128  values  of  the  unit  step  function,  and  the  input 
sequence  xn2 ( )  consists  of  N2  =  128  values  of  a  square  wave. 
Plots  of  the  input  sequences,  as  well  as  the  output 
sequence,  appear  on  the  pages  that  follow.  The  results  of 
the  correlation  operation,  as  produced  by  CONCOR.FOR,  are 
similar  to  those  produced  by  CONCORDT.FOR  and  CONCORFT. FOR. 
However,  as  the  plots  indicate,  the  wraparound  phenomenon 
exhibited  previously  does  not  occur  when  the  sequences  are 
linearly  correlated  in  the  time  domain. 
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Figure  H.4   Input  sequence  xnl(n)  -  Example  #2 

122 


OJ 


CV3 


■ 

- 

3 

VJ3 

t-J 

>a» 

CV3 

- 

« 

fc-J 

Ca] 

- 

tau, 

•3. 

- 

■ 

, 

* 

CS> 

CV3 


*~0 


C*3 


cva 


Figure  H.5   Input  sequence  xn2(n)  -  Example  #2 
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Figure  H.6   The  result  of  linear  correlation  -  Example  #2 
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/Open  input  file. 


Read  option. 

Read  nsl,  nel,  dsrcel. 

Read  ns2,  ne2,  dsrce2. 


/Read  xn2  ( )  from  file./ 


Nl  -  nel  -  nsl  +  1 
N2  -  ne2  -  ns2  +  1 


'Write  input  data  to  files: 
COMCOR.OOT  and  CONCOR.DAT. 


Call  CORREL  to  compute 
linear  correlation. 


I 


A 


rwrite  results  to  files: 
CONCOR.DAT  and  CONCOR.OUT. 


Call  SAMPL1  to 
generate  input:  xnl() 


Call  SAMPL2  to 
generate  input:  xn2 ( ) 


TEST 

onto   monitor   screen. 

IATCH 

N3  -  Nl  +  N2 


Call  CONVOL  to  compute 
linear  convolution. 


Figure   H.7      CONCOR.FOR  Software   Flowchart 
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j  =  o 


For  n  =  ns3,  ne3 


For  i  =  j ,  0,  -1 


N 


N 


yn(n)  =  yn(n)  +  xn2 (ns2+j-i) *xnl(nsl+i) 


j  =  j  +  1 


Figure  H.8   CONVOL  Subroutine  Flowchart 
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For  p  =  ns3,  ne3 


For  i  =  j ,  0,  -1. 


indexl  =  nel  -  j  +  i 
index2    ns2  +  i 


R(p)  =  R(p)  +  xnl(indexl) *xn2 (index2) 


J  =  J  +  1 


® 


Figure  H.9   CORREL  Subroutine  Flowchart 
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Appendix  I 

The  iterative  solution  to  an  LTI  difference  equation  is 
rather  straight-forward.  If  the  equation  consists  of  only  a 
few  terms,  several  iterations  can  be  computed  by  hand 
calculations.  A  more  complex  equation  requires  a  solution 
derived  by  an  analytical  approach  or  through  use  of  a 
recursive  algorithm.  DIFFEQ.FOR  provides  a  recursive  means 
of  computing  the  output  sequence  y(ns)  when  provided  with 
the  input  sequence  x(ns)  and  the ' initial  conditions  of  the 
system.  This  appendix  includes  the  flowcharts  of  DIFFEQ.FOR 
and  the  subroutine  DIFFEQ.  Additionally,  two  example 
problems  are  developed  which  demonstrate  the  capabilities  of 
DIFFEQ.FOR. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  DIFFEQ.FOR  and  in  the  corresponding  flow- 
charts. 

numsys  -  The  integer  value  that  specifies  the  number  of 
difference  equations  in  the  form  of  Equation 
(3.9)  that  are  to  be  solved.  For  each 
difference  equation,  the  input  parameters 
described  below  must  be  provided  by  the  user. 
L  -  The  integer  value  denoting  the  maximum  number 

of  delays  occurring  in  the  input  sequence  x(). 
N  -  The  integer  value  denoting  the  maximum  number 
of  delays  occurring  in  the  output  sequence  y(). 
nstop  -  The  integer  value  corresponding  to  the  largest 
time  index  for  which  the  sequence  y()  is  to  be 
solved, 
xsorce  -  The  character  string  '  F'  or  'S'  that  specifies 
whether  the  input  sequence  x()  is  to  be  read 
from   the   input   file   (F)   or   generated   (S) 
through  use  of  the  subroutine  XGEN. 
b()  -  The  coefficients  of  the  input  sequence  cor- 
responding to  Equation  (3.9). 
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a()  -  The   coefficients   of   the   output   sequence 
corresponding  to  Equation  (3.9). 

y()  -  The  output  sequence  of  length:  N  +  nstop  +  1. 
The  initial  condition  sequence  y (-N) . . .y (-1) 
must  be  provided  by  the  user  if  N  >  0.  The 
remaining  values  in  the  sequence  y(0)...y(ns- 
top)  are  computed  by  the  program. 

x()  -  The  input  sequence  of  length:   nstop  +  1. 
ns  -  The  time  index  of  both  the  input  sequence  and 
the  output  sequence, 
nprob  -  The  integer  value  corresponding  to  the  dif- 
ference equation  being  solved. 
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Example  #1 

The  first  example  involves  the  solution  of  the  difference 

equation: 

y(ns)  =  1.2*y(ns-l)  +  1.5*x(ns) 

Given:   y(-l)  =  25.0 

x(ns)  =  100.0   for  0  <  ns  <  nstop 

(1.1) 

The  goal  is  to  compute  the  solution  to  this  difference 

equation  for  values  of  ns  in  the  range:   0  <  ns  <  10.   Listed 

below  is  the  input  file  DIFFEQ.TST  required  to  run  this 

problem: 

DIFFEQ.TST 


1 

000 

001 

010 

F 

1.5 

1.2 

25.0 

100.0 

100.0 

100.0 

100.0 

100.0 

100.0 

100.0 

100.0 

100.0      100.0 
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Included  on  the  page  that  follows  is  a  listing  of  the 
computed  solution  as  it  appears  in  the  file  DIFFEQ.OUT.  The 
manual  computation  of  y(ns)  for  the  first  few  values  of  ns 
yields  the  sequence  y(ns)  =  [  25  180  366  589.2  ...  ].  As 
can  be  seen  from  the  tabular  output,  the  solution  was 
correctly  computed  for  these  values  of  ns .  Continuing  with  a 
more  analytical  approach,  the  solution  to  this  difference 
equation  can  be  found  for  any  value  of  ns  >  0  with  the  aid 
of  the  geometric  sum  equation.  The  solution,  after  some 
manipulation,  is: 

1.0  -  1.2ns+1 

y(ns)  =  25.0*1.2ns+1  +  150.0*  for  ns  >  0 

-  0.2 

(1.2) 
For  example: 

1.0  -  1.211 

y(10)  =  25.  0*1. 211  +  150.0*  =   5008.315 

-  0.2 

(1.3) 

To  an  accuracy  of  two  decimal  places  the  computed  solution 

matches  the  analytical  solution. 

This  example  problem  is  also  developed  in  the  header 

text  of  DIFFEQ.FOR  and  can  be  run  by  the  user  in  Test  Mode 

by   using   the   prestored   data   found   in   the   input   file 

DIFFEQ.TST. 
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DIFFEO.OUT 


INPUT  DATA  FOR  PROBLEM  #   1 

PROBLEM  #  1     INPUT  DATA  SOURCEFILE:  DIFFEQ.TST 

THE  NUMBER  OF  INPUT  DELAYS:  L  =    0 

THE  NUMBER  OF  OUTPUT  DELAYS:  N  =    1 

THE  VALUE  OF  nstop  IS:   10 

THE  COEFFICIENTS  b(0),  b(l),  .  ..,  b(L)  ARE: 

150000E+01 


THE  COEFFICIENTS  a(l),  .  ..,  a(N)  ARE: 
120000E+01 

OUTPUT  DATA  FOR  PROBLEM  #   1 


ns 

x  (ns) 

y(ns) 

-1 

.000000E+00 

.250000E+02 

0 

.100000E+03 

.180000E+03 

1 

.100000E+03 

.366000E+03 

2 

.100000E+03 

.589200E+03 

3 

.100000E+03 

.857040E+03 

4 

.100000E+03 

.117845E+04 

5 

.100000E+03 

.156414E+04 

6 

.100000E+03 

•202697E+04 

7 

•100000E+03 

.258236E+04 

8 

. 100000E+03 

.324883E+04 

9 

.100000E+03 

.404860E+04 

10 

.100000E+03 

.500832E+04 
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Example  #2 

This   second   example   requires   the   solution   to   the 
difference  equation: 

y(ns)  =  0.95*y(ns-l)  -  0 . 9025*y (ns-2 )  +  x(ns)  -  .475*x(ns-l) 

(1.4) 

Given:  y(-2)  =  y(-l)  =  0.0 

x(ns)  =  1.0   for   ns  =  0 
0.0   otherwise 

The  system  described  by  this  difference  equation  corresponds 

to  the  transfer  function: 


y(z)  1.0  -  .475*z~1 


H(z)   =   = 


x(z)       1.0  -  0.95Z"1    +  0.9025Z"2 

(1.5) 

With  the  aid  of  the  Inverse  z-Transform  Formula,  the 

analytical  solution  of  this  example  problem  is  found  to  be: 

y(ns)  =  0.95ns  *  cos  (7r*ns/3 . 0)        for   ns  >  0 

(1.6) 

The  next  page  of  this  appendix  is  a  plot  of  the  output 

sequence  for  values  of  ns  in  the  range:   0  <  ns  <  80.   The 

plot   clearly   shows   both   the   decaying   envelope   of   the 

sequence,  as  well  as  the  constant  frequency  sinusoid. 
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Figure  1.1   System  output  -  Example  #2 
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/Open  input  file. 
Read  numsys. 


■^  For  nprob  =  l,nstop. 


L 


Read  L,  N,  nstop,  xsorce. 


Conduct  error  checks. 


For  )c  =  0,  L. 
Read  b(k) . 


For  k  =  1,  N. 
Read  a(k) . 


For  k  =  -  N,  -1. 
Read  y(ns) . 


'Write  input  data  to  files: 
DIFFEQ.OUT  and  DIFFEQ.DAT. 


Call  DIFFEQ  to  compute 
the  iterative  solution. 


'Write  results  to  files: 
DIFFEQ.DAT  and  DIFFEQ.OUT. 


(end) 


Call  XGEN  to 
generate  input:  x() 


TEST 

, 

onto  monitor  screen. 

BATCH 

Figure  1.2   DIFFEQ. FOR  Software  Flowchart 
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For  ns  =  0,  nstop. 


y(ns)  =  0.0 


For  k  =  0,  max(N,L) . 


y(ns)  =  y(ns)  +  a(k)*y(ns-k)  +  b(k)*x(ns-k) 


® 


Figure  1.3   DIFFEQ  Subroutine  Flowchart 


136 


Appendix  J 

Included  in  this  appendix  are  two  example  problems  that 
demonstrate  the  capabilities  of  the  program  STATEQ.FOR. 
The  final  pages  of  this  appendix  are  the  software  flowcharts 
of  the  main  program  STATEQ.FOR  and  the  subroutine  ITRATE. 
Listed  below  are  the  names  of  the  variables  used  throughout 
the  flowcharts  and  the  corresponding  Fortran  source  code. 

N  -  An  integer  value  that  specifies  the  number  of 
system  states. 

M  -  An  integer  value  that  specifies  the  number-  of 
system  inputs. 

Q  -  An  integer  value  that  specifies  the  number  of 
system  outputs, 
nstop  -  The  integer  value  corresponding  to  the  largest 
time   index   for  which   the   system   of   state 
equations  is  to  be  solved, 
xsorce  -  The  character  string  'F'  or  'S'  that  specifies 
whether  the  input  sequence  xs  ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  XGEN. 

A  -  An  N  x  N  matrix  of  state  coefficients  as  they 
occur  in  Equation  (3.10). 

B  -  An  N  x  M  matrix  of  input  coefficients  as  they 
occur  in  Equation  (3.10). 

C  -  A  Q  x  N  matrix  of  output  coefficients  as  they 
occur  in  Equation  (3.11). 

D  -  A  Q  x  M  matrix  of  input  coefficients  as  they 
occur  in  Equation  (3.11). 
v()  -  An  N  x  1  vector  consisting  of  values  that 
describe  the  initial  condition  of  the  system, 
ns  -  An  integer  value  denoting  the  time  index. 
xs(i,ns)  -  An  M  x  (nstop+1)  array  consisting  of  the  input 
sequence(s).    The  index  i  denotes  the  input 
number  (1,  . . . ,  M) ,  and  the  index  ns  denotes  the 
sample  number  (0,  1,  ...,  nstop). 
vs(i,ns)  -  An   N   x   (nstop+1)   array   consisting   of   the 
state (s)  of  the  system.  The  index  i  denotes  the 
state  (1,  ...,  Q) ,  and  the  index  ns  denotes  the 
sample  number  (0,  1,  ...,  nstop). 
ys(i,ns)  -  A  Q  x  (nstop+1)  array  consisting  of  the  output 
sequence(s).    The  index  i  denotes  the  oucput 
number  (1,  ...,  Q) ,  and  the  index  ns  denotes  the 
sample  number  (0,  1,  ...,  nstop). 
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xi  -  A  dummy  variable  that  stores  the  weighted 
cumulative  contribution  of  the  input  sequen- 
ce (s)  for  each  value  of  ns. 
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Example  #1 

This  first  example  problem  demonstrates  the  iterative 
solution  to  the  state  equations: 


v(ns+l)  = 


0.0   -1.0 
1.0    0.0 


v(ns)   + 


1.0 
0.0 


x(ns) 


y(ns)  =   [  1.0   -1.0  ]  v(ns)   +   [  1.0  ]  x(ns) 


The  initial  condition  vector  is: 


(J.l) 
(J. 2) 


v(0)  = 


5.0 
-5.0 


(J. 3) 


The  input  vector  is: 

x(ns)  =  [  10.0  ]     for  0  <  ns  <  3 

(J. 4) 

The  goal  of  this  problem  is  to  compute  the  solution  to  the 

given  system  of  equations  for  values  of  ns  in  the  range:   0  < 

ns  <  3 .    This  example  problem  also  appears  in  the  header 

text  of  STATEQ.FOR  and  can  be  run  by  the  user  in  Test 

Mode    by  using   the   input  data  prestored   in  the   file 

STATEQ.TST.   A  listing  of  STATEQ.TST  appears  below. 
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STATEO.TST 


02 

1 

03 

F 

0.0 

-1.0 

1.0 

0.0 

1.0 

0.0 

1.0 

-1.0 

1.0 

5.0 

-5.0 

10.0 

10.0 

10.0 

10.0 

Manual  calculation  of  the  solution  to  this  problem  yields 

the  following  sequences: 

vl(ns)  =  [  5.0   15.0   5.0   -5.0  ] 

(J. 5) 

V2(ns)  =  [  -5.0   5.0   15.0   5.0  ] 

(J. 6) 

yl(ns)  =  [  20.0   20.0   0.0   0.0  ] 

(J. 7) 

A  listing  of  the  tabular  output  file  STATEQ.OUT  follows.   As 

the  tabular  output  indicates,  the  sequences  were  correctly 

computed  over  the  specified  range  of  ns. 
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STATEO . OUT 


INPUT  PARAMETERS: 

INPUT  DATA  SOURCE  FILE:  STATEQ . TST 
THE  NUMBER  OF  STATES  IS :  N  =   2 
THE  NUMBER  OF  SYSTEM  INPUTS  IS:  M  =  1 
THE  NUMBER  OF  SYSTEM  OUTPUTS  IS :  Q  =  1 
THE  VALUE  OF  nstop  IS:  nstop  =    3 
THE  VALUE  FOR  xsorce  IS:  F 


THE  MATRIX  A ( i , j )  IS: 

.0000E+00   -.1000E+01 
.1000E+01    .0000E+00 


THE  MATRIX  B(i, j)  IS 

•1000E+01 
.0000E+00 


THE  MATRIX  C(i,j)  IS: 
.1000E+01   -.1000E+01 

THE  MATRIX  D  (  i  ,  j  )  IS: 
.lOOOE+01 

THE  INITIAL  CONDITION  OF  THE  STATE  VECTOR  IS 

vl  =   .500000E+01 
v2  =  -.500000E+01 
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OUTPUT  DATA: 

FOR  ns  =   0  THE  STATE  OF  THE  SYSTEM  IS 
THE  VECTOR  x  is: 

Xl  =   .100000E+02 
THE  VECTOR  v  is: 

vl  =   .500000E+01 

v2  =  -.500000E+01 
THE  VECTOR  y  is: 

yl  =   .200000E+02 

FOR  ns  =   1  THE  STATE  OF  THE  SYSTEM  IS 
THE  VECTOR  x  is: 

Xl  =   .100000E+02 
THE  VECTOR  v  is: 

vl  =   . 150000E+02 

v2  =   .500000E+01 
THE  VECTOR  y  is: 

yl  =   .200000E+02 

FOR  ns  =   2  THE  STATE  OF  THE  SYSTEM  IS 
THE  VECTOR  x  is: 

Xl  =   .100000E+02 
THE  VECTOR  v  is: 

vl  =   .500000E+01 

v2  =   .150000E+02 
THE  VECTOR  y  is: 

yl  =   .000000E+00 

FOR  ns  =   3  THE  STATE  OF  THE  SYSTEM  IS 
THE  VECTOR  x  is: 

xl  =   .100000E+02 
THE  VECTOR  v  is: 

vl  =  -.500000E+01 

v2  =   .500000E+01 
THE  VECTOR  y  is: 

yl  =   .000000E+00 
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Example  #2 


A  low-pass  filter  having  a  zero  at  z  =  -1.0  and  poles  at 
z  =  .95,  .95e~lw/6,     .95e+iw/6    has  the  transfer  function: 

z  +  1 


H(z)   = 


Z3  -  2.5954Z2  +  2.4657Z  -  .8574 


(J. 8) 


A  state-matrix  representation  of  this  system  is: 


v(ns+l)    = 


0.0 
0.0 
0.8574 


1.0 
0.0 
-2.4657 


0.0 

1.0 

2.5954 


v(ns)    + 


0  0  0 
0  0  0 
111 


x(ns) 


(J. 9) 


y(ns)       =       [    1.0         1.0         0.0    ]    v(ns)       +       [000]    x(ns) 


(J. 10) 


The  inputs  to  the  system  are  the  three  sequences: 
xl(ns)  =  10.0*u(ns) 

x2(ns)  =  2*cos  (7r*ns/6)  *u(ns) 

x3(ns)  =  2*cos  (7r*ns/2)  *u(ns) 

The  initial  condition  of  the  system  is  the  vector: 


(J. 11) 
(J. 12) 
(J. 13) 


v()  = 


(J. 14) 
To  solve  this  problem,  the  input  file  STATEQ.IN  was  created. 
A  listing  of  this  file  appears  below.  Plots  of  the 
sequences  xl(ns),  x2(ns),  x3(ns),  vl(ns),  v2(ns),  v3(ns), 
and  yl(ns)   are  included  on  the  pages  that  follow.    The 
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sequences  were  computed  for  100  values  of  ns  (nstop  =  99)  . 
Because  of  the  lengths  of  the  input  sequences,  all  three 
input  sequences  were  generated  through  use  of  the  subroutine 
XGEN. 

As  the  plots  indicate,  the  filter  amplifies  the  low 
frequency  inputs  xl  and  x2 ,  but  attenuates  the  high 
frequency  input  x3 . 

STATEO.IN 


03 

3 

1 

99 

S 

0.0 

1.0 

0.0 

0.0 

0.0 

1.0 

0.8574 

-2.4657 

2.5954 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1.0 

1.0 

1.0 

1.0 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 
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•p^a 


u->    «*» 


o   «<« 


OJ 


na 


OJ 


u» 


Figure  J.l   Input  sequence  xl(ns)  -  Example  #2 
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vn 


cxa 

CaU 
Ga4 


c<o 


v» 


Figure  J. 2   Input  sequence  x2(ns)  -  Example  #2 
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CO 

w 


CO 


u-»    en 


CO    <*n 


u-i 


Figure  J. 3   Input  sequence  x3 (ns)  -  Example  #2. 
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«r*a 


u->  m 


KTt 


CO  <** 


M 


u-s 


CO 

WO 

IT? 


in 

c^ 

CO 


OJ 


VI 


Figure  J. 4   State  sequence  vl(ns)  -  Example  #2 
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OJ 


u->  «*» 


Ul 


c»   «*■» 


CO 


m 


CO 

u-5 


in 


OJ 


ut 


Figure  J. 5   State  sequence  v2(ns)  -  Example  #2 
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vs 


<~> 


c«a 


u->    w 


ca 


*x* 


CO 


Figure  J. 6   State  sequence  v3 (ns)  -  Example  #2 
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IXI 


c_» 


cm 


u->    v» 


CO 

3 


ut 


Figure  J. 7   Output  sequence  yl(ns)  -  Example  #2 
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/Open  input  file. 


Read  N,  M,  Q. 

Read  nstop,  xsorce. 


Conduct  error  checks. 


/Read  A  ( i ,  j  ) 
Read  B(i, j) . 
Read  C(i,j) 
Read  D ( i , j ) 
Read  v(i) . 


Call  XGEN  to  generate 
input:  xs (i, ns) . 


mode 


>^ 

TEST 

. 

^ 

Write  input  uai.a 
onto  monitor  screen. 

BATCH 

< 

Write  input  data 

to  file:  STATEQ.OUT, 


Call  ITRATE  to  compute 
the  iterative  solution. 


Write  results  to  files: 
STATEQ.OUT  and  STATEQ.OUT. 


Tend) 


Figure  J. 8      STATEQ.FOR  Software   Flowchart 
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® 


For  ns  =  0 ,  nstop 


For  i  =  1,  N. 


xi  =  0.0 
vs (i, ns+1 


=  0.0 


For  k  =  1,  M. 


xi  =  xi  +  B( i, k) *xs (k,ns) 


For  j  =  1,  N. 


vs(i,ns+l)  =  vs(i,ns+l)  +  A( i , j ) *vs ( j , ns) 


vs(i,ns+l)  =  vs(i,ns+l)  +  xi 


For  1  =  1,  Q. 


ys(l,ns)  =0.0 


For  k  =  1,  M. 


xi  =  xi  +  D(l,k) *xs (k, ns) 


ys(l,ns)  =  ys(l,ns)  +  xi 


Figure  J. 9   ITRATE  Subroutine  Flowchart 
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Appendix  K 


The  software  flowcharts  describing  the  program  PLOT- 
DAT.  FOR  and  the  subroutines  SCALE  and  GRIDD  are  included  in 
this  appendix.  Listed  below  are  the  variable  names  used  in 
the  flowcharts  and  the  corresponding  Fortran  source  code. 

xmax  -  The  maximum  ordinate  value  read  from  the  data 

for  each  plot, 
xmin  -  The  minimum  ordinate  value  read  from  the  data 

for  each  plot, 
ymax  -  The  maximum  abscissa  value  read  from  the  data 

for  each  plot, 
ymin  -  The  minimum  abscissa  value  read  from  the  data 
for  each  plot, 
valmax  -  A  dummy  variable  passed  to  subroutine  SCALE 
containing  the  maximum  value  of  an  array  to  be 
scaled  (i.e.,  xmax  or  ymax). 
valmin  -  A  dummy  variable  passed  to  subroutine  SCALE 
containing  the  minimum  value  of  an  array  to  be 
scaled  (i.e.,  xmin  or  ymin). 
iscal  -  An   integer  value  that  contains  the  scaling 
value  determined  by  subroutine  SCALE, 
numplts  -  The  integer  value  that  specifies  the  number  of 
plots   to  be  created.     For  each  plot,   the 
parameters  listed  below  must  occur  in  the  input 
file, 
numpts  -  The  integer  value  that  specifies  the  number  of 
data  points  to  be  read  from  the  input  file  for 
the  given  plot, 
title  -  The  character  string  consisting  of  up  to  40 
characters   that   comprise   the   title   of   the 
graph, 
xlabl  -  The  character  string  consisting  of  up  to 
characters  that  comprise  the  label  for  the 
axis  of  the  graph, 
ylabl  -  The  character  string  consisting  of  up 

characters  that  comprise  the  label  for  the  y- 
axis  of  the  graph. 
x()  -  The  array  containing  the  ordinate  values  read 

from  the  input  file. 
y()  -  The  array  containing  the  abscissa  values  read 
from  the  input  file.   Each  ordinate,  abscissa 
pair  corresponds  to  one  point  to  be  plotted  by 
the  program. 


14 
x- 


to  14 
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/Open  input  file. 
Read  numplts.    , 


>  For  i  -  1,  numplts. 


Prompt  user  for 
hardcopy  Y/N  ?  , 


'Prompt  user  for 
grid  Y/N  ?     / 


® 


/Read  numpts. 

Read  title. 

Read  xlabl. 

Read  ylabl. 


Conduct  error  checks. 


>  For  )C  ■  1,  numpts. 


/Read  x(k) ,  y(k) .  / 


xmax  -  maximum  x()  value 

xmin  -  minimum  x()  value 

ymax  »  maximum  y()  value 

ymin  -  minimum  y()  value 


Call  SCALE  to  determine 
the  scaling  factor  for 
the  ordinate  values. 


I 

1 


Call  SCALE  to  determine 
the  scaling  factor  for 
the  abscissa  values. 


I 


Scale  x()  and  y() . 


'Plot  the  data  by  calling 
the  appropriate  plotting 
library  subroutines.     / 


Create  hardcopy 
printout  of  screen 
contents.         I 


Figure   K.l      PLOTDAT.FOR  Software   Flowchart 
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9 


Print  horizontal  dashed  lines 
at  each  major  tic  mark  location 


Print  vertical  dashed  lines  at 
each  major  tic  mark  location. 


I 


Figure  K.2   GRIDD  Subroutine  Flowchart 
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iscal  =  The  largest  integer  power  of  10 
occuring  in  the  input  array. 


valmin  =  valmin/ ( 10**iscal) 
valmax  =  valmax/ ( 10**iscal) 


If  valmin  and  valmax  <  0.0 
valmax  =  0.0. 


If  valmin  and  valmax  >  0.0 
valmin  =  0.0. 


If  valmin  =f=  0 . 0  then  valmin 
is  adjusted  to  cause  a 
buffer  space  to  be  included 
below  the  minimum  value  to 
be  plotted. 


If  valmax  =f=  0.0  then  valmax 
is  adjusted  to  cause  a 
buffer  space  to  be  included 
above  the  maximum  value  to 
be  plotted. 


® 


X 


Figure  K.3   SCALE  Subroutine  Flowchart. 

157 


Appendix  L 


C  DIGFREQ.FOR      VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  COMPUTES  THE  FREQUENCY  RESPONSE  OF 

C  DISCRETE  SYSTEMS.   THE  PROGRAM  CONSISTS  OF  A  MAIN 

C  PROGRAM  THAT  CONTROIS  THE  INPUT/OUTPUT  AND  THE 

C  SUBROUTINES  dfresp  AND  coeff .  SUBROUTINE  dfresp 

C  COMPUTES  THE  FREQUENCY  RESPONSE  OF  EACH  SYSTEM. 

C  SUBROUTINE  coeff  ALLOWS  THE  USER  THE  OPTION  OF 

C  GENERATING  THE  FILTER  COEFFICIENTS  OF  THE  SYSTEMS 

C  TO  BE  ANALYZED  BY  WRITING  THE  APPROPRIATE  EQUATIONS. 

C  IF  THE  USER  ELECTS  TO  GENERATE  THE  COEFFICIENTS  BY 

C  USING  THE  SUBROUTINE  coeff,  THE  EQUATIONS  MUST  BE 

C  WRITTEN  INTO  THE  SUBROUTINE  USING  STANDARD  FORTRAN  77 

C  STATEMENTS.   THE  COEFFICIENTS  MUST  BE  STORED  IN  THE 

C  ARRAYS  b()  AND  c()  WHICH  CORRESPOND  RESPECTIVELY  TO  THE 

C  NUMERATOR  AND  DENOMINATOR  TERMS  OF  THE  SYSTEM  EQUATION. 

C  THE  USER  CAN  SELECT  ONE  OF  TWO  OPERATING  MODES:  BATCH 

C  OR  TEST.   IN  BATCH  MODE  THE  AMOUNT  OF  INTERFACE  WITH 

C  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT 

C  DATA  HAS  BEEN  STORED  IN  THE  DEFAULT  FILE  'DIGFREQ.  IN1 . 

C  IN  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 

C  INPUT  FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL  RUN  BY 

C  USING  THE  INPUT  DATA  STORED  IN  THE  FILE  » DIGFREQ .  TST  • . 

C  IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  THE  TEST 

C  MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED  INPUT  DATA. 

C  THE  TEST  MODE  ECHOES  THE  INPUT  DATA  ONTO  THE  MONITOR  TO 

C  ALLOW  VERIFICATION  OF  ITS  ACCURACY.   THIS  PROGRAM  WILL 

C  COMPUTE  THE  FREQUENCY  RESPONSE  OF  UP  TO  THREE  SYSTEMS. 

C  FOR  EACH  SYSTEM,  THE  USER  HAS  THE  OPTION  OF  HAVING  THE 

C  OUTPUT  EXPRESSED  IN  DECIBELS  (dB) .   THE  OUTPUT  OF  THIS 

C  PROGRAM  IS  STORED  IN  TABULAR  FORM  IN  THE  FILE 

C  'DIGFREQ. OUT'  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING 

C  IN  THE  FILE  • DIGFREQ . DAT ' . 

C 

C 

C******************************  INPUT  ******************************** 

C 

C  THIS  PROGRAM  ASSUMES  THAT  EACH  DISCRETE  SYSTEM  IS  MODELED  BY  THE 

C  EQUATION:  H(z)  =  nmVden  WHERE: 

C 

C  num  =  b(0)*z**L  +  b(l)*z**(L-l)  +  ...  +  b(L-l)*z  +  b(L) 

C 

C  den  =  c(0)*z**N  +  c(l)*z**(N-l)  +  ...  +  c(N-l)*z  +  c(N) 

C 

C    L  =  A  NON-NEGATTVE  INTEGER,  THE  DEGREE  OF  THE  NUMERATOR 

C  POLYNOMIAL. 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


N  =  A  NON-NEGATIVE  INTEGER,  THE  DEGREE  OF  THE  DENOMINATOR 

POLYNOMIAL. 
b(0) . . .b(L)  =  REAL  COEFFICIENTS  OF  THE  NUMERATOR  TERMS. 
c(0) . . .C(N)  =  REAL  COEFFICIENTS  OF  THE  DENOMINATOR  TERMS. 

THE  INPUT  PARAMETERS  SHOULD  BE  STORED  LN  A  FILE  NAMED 
•DIGFREQ.IN1 .   ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 
REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE  PAID 
TO  THE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
DENOTE  'REAL'  NUMBERS.   THE  INPUT  PARAMETERS  REQUIRED  BY  THE 
PROGRAM  ARE  LISTED  BELOW. 


NAME 

numsys 

L 

N 

dsorce 

yscal 

thetaO 

dlthta 

numpts 

b() 

c() 

WHERE: 
numsys 


TYPE 

INTEGER 

INTEGER 

INTEGER 

CHARACTER 

CHARACTER 

REAL 

REAL 

INTEGER 

REAL 

REAL 


RANGE  (ARRAYS) 


0 ,  I,  2, ,     ...,  J_i 
0,  1,  2,  .  .  .  ,  N 


RESTRICTIONS 

<=  numsys  <=  3 
0  <=  L  <=  128 
0  <=  N  <=  128 

'F'  OR  'S' 
■STD1  OR  'LOG' 


1  <=  numpts  <=  101 
0  <=  L  <=  128 
0  <=  N  <=  128 


THE  NUMBER  OF  DISTINCT  SYSTEMS  H(z)  TO  BE  ANALYZED. 
THIS  INTEGER  VALUE  MUST  OCCUR  AT  THE  TOP  OF  THE  INPUT 
FILE.  IT  DELINEATES  THE  NUMBER  OF  SYSTEMS  TO  BE  READ  BY 
THE  PROGRAM  AND  ANALYZED.  FOR  EACH  SYSTEM  (1,  . . . ,  numsys) 
THE  PARAMETERS  BELOW  MUST  APPEAR  IN  THE  INPUT  FILE. 


L  =  AN  INTEGER  VALUE  SPECIFYING  THE  DEGREE  OF  THE  NUMERATOR 
POLYNOMIAL. 

N  =  AN  INTEGER  VALUE  SPECIFYING  THE  DEGREE  OF  THE  DENOMINATOR 
POLYNOMIAL. 

dsorce  =  THE  CHARACTER  STRING  'F'  OR  'S'  DENOTING  WHETHER  THE 

SYSTEM  COEFFICIENTS  ARE  TO  BE  READ  FROM  THE  INPUT  FILE  (F) 
OR  GENERATED  (S)  THROUGH  USE  OF  THE  SUBROUTINE  coeff . 

yscal  =  A  CHARACTER  STRING  SPECIFYING  THE  DESIRED  MAGNITUDE  OPTION: 
'STD'  WILL  PRODUCE  STANDARD  MAGNITUDE  OUTPUT; 
'LOG'  WILL  PRODUCE  MAGNITUDE  EXPRESSED  IN  DECIBELS  (dB) . 

thetaO  =  THE  STARTING  VALUE  OF  THETA  (RAD)  AS  IN  Z=EXP  ( J*THETA)  . 

dlthta  =  THE  INCREMENT  OF  THETA  (RADIANS)  . 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


numpts  =  THE  NUMBER  OF  FREQUENCY  POINTS  FOR  WHICH  THE  OUTPUT  IS 
TO  BE  COMPUTED. 

b()  =  THE  NUMERATOR  COEFFICIENTS  IN  ORDER  b(0)  ,  b(l)  ,  . ..,  b(L)  . 
IF  dsorce  =  'F'  IS  SELECTED  THEN  THE  USER  MUST  SUPPLY  THE 
L+l  NUMERATOR  COEFFICIENTS  IN  THE  FILE.   IF  dsorce  =  'S1 
THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  NUMERATOR 
COEFFICIENTS  BY  WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  THE  SPACE  PROVIDED  IN  SUBROUTINE  coeff .   IF  THIS  METHOD 
OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION. 

c()  =  THE  DENOMINATOR  COEFFICIENTS  IN  ORDER  c(0) ,  c(l) ,  . . . ,  c(N) . 
IF  dsorce  =  'F1  IS  SELECTED  THEN  THE  USER  MUST  SUPPLY  THE 
N+l  DENOMINATOR  COEFFICIENTS  IN  THE  FILE.   IF  dsorce  =  'S1 
THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  DENOMINATOR 
COEFFICIENTS  BY  WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  THE  SPACE  PROVIDED  IN  SUBROUTINE  coeff.   IF  THIS  METHOD 
OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION. 

THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 
FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 


NOTE: 


LINE  # 

1 
2 
3 

NOTE  1 
NOTE  2 
NOTE  3 

WHERE: 


NOTES  1. 


ENTRIES 

numsys 

L,  N , dsorce , yscal 

dlthta , thetaO , numpts 

b(k) ,  k=0,l, . .. ,L 

c(k)  ,  k=0,l,  . . .  ,N 


FORMAT 

II 

i3,tll,i3,t21,al,t31,a3 
2fl0.0,i3 
6fl0.0 
6fl0.0 


2. 


NN  =  1  +  (L/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER)  . 
ND  =  1  +  (N/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER)  . 

,   THE  NEXT  NN  LINES  ARE  ONLY  REQUIRED  IF  dsorce  =  «F* .  IF 
dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 
L+l  NUMERATOR  COEFFICIENTS  IN  THE  SUBROUTINE  coeff. 
THE  USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  coeff  TO  GENERATE  THE  VALUES  FOR  b()  . 

THE  NEXT  ND  LINES  ARE  ONLY  REQUIRED  IF  dsorce  =  'F1 .  IF 
dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 
N+l  DENOMINATOR  COEFFICIENTS  IN  THE  SUBROUTINE  coeff. 
THE  USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  coeff  TO  GENERATE  THE  VALUES  FOR  c() . 

FOR  numsys  >  1  THE  FORMAT  OF  LINES  2. . .  IS  REPEATED. 
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C        4.   THE  FORMAT  flO.O  USED  FOR  INKJT  DATA  PERMITS  THE  DECIMAL 

C  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 

C  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (EG. 

C  3146.2  =  3.1462E+03) . 

C 

C 

C******************************  OUTPUT  ******************************* 

C 

C  THE  OUTPUT  DATA  CREATED  BY  THE  PROGRAM  IS  STORED  IN  TABULAR  FORM 

C  IN  THE  FILE  ' DIGFREQ . OUT ' .   ADDITIONALLY,  THE  OUTPUT  DATA  IS 

C  WRITTEN  INTO  THE  FILE  ' DIGFREQ . DAT '  TO  FACILITATE  PLOTTING  BY 

C  A  SEPARATE,  USER  SUPPLIED  PROGRAM.   THE  FORMAT  OF  THE  DATA  IN 

C  'DIGFREQ. DAT'  IS:   el2.6,  2x,  el2.6.   THE  FIRST  ENTRY  CORRESPONDS 

C  TO  THE  ORDINATE  VALUE  (THETA)  AND  THE  SECOND  ENTRY  THE  ABSCISSA 

C  VALUE  (MAGNITUDE  OR  PHASE)  .   ADDITIONAL  HEADER  INFORMATION  IS 

C  WRITTEN  INTO  THE  DATA  FILE  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF 

C  EACH  PLOT. 

C 

C 

<2******************************  EXAMPLE  ****************************** 

C 

C  THE  INPUT  PARAMETERS  FOR  THE  SYSTEM  DESCRIBED  BELOW  ARE  STORED  IN 

C  THE  SAMPLE  INPUT  FILE  '  DIGFREQ .  TST '  AND  CAN  BE  USED  FOR  A  TRIAL 

C  RUN  IN  THE  TEST  MODE. 

C 

C 

C  SYSTEM:  H(z)=z/(z-0.5) 

C 

C  GOAL:    TO  OBTAIN  THE  FREQUENCY  RESPONSE  FOR  THIS  SYSTEM  FROM 

C  THETA  =  0.0  TO  THETA  =  3.14159  (PI  RADIANS)  IN  STEPS 

C         OF  dlthta  =  PI/10.0 

C 

C  FOR  THE  SYSTEM  DESCRIBED  ABOVE  THE  INPUT  FILE  IS: 

C 

C  1 

C  001       001       F         STD 

C  0.314159   0.0       Oil 

C  1.0       0.0 

C  1.0       -0.5 

C 

C 

C  THE  RESULTING  OUTPUT  DATA  FILE:  ' DIGFREQ . OUT '  IS: 

C 

C  INPUT  DATA  FOR  SYSTEM  #   1 

C 

C  INPUT  DATA  SOURCEFILE:  DIGFREQ. TST 

C  DEGREE  OF  NUMERATOR  =   1 

C  DEGREE  OF  DENOMINATOR  =   1 

C  dsorce  =  F 

C  NUMBER  OF  FREQUENCY  POINTS  =  11     MAGNITUDE  OPTION  =  STD 

C  STARTING  VALUE  OF  THETA  =   .000000E+00 

C  INCREMENT  OF  THETA  =   .314159E+00 
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THE  NUMERATOR  COEFFICIENTS  b(Q)  ,b(l)  . .  .b(L)  ARE 


. 1000E+01 


. 0000E+00 


THE  DENOMINATOR  COEFFICIENTS  c(0) ,c(l) . . .c(N)  ARE 


. 1000E+01   - . 5000E+00 


OUTPUT  DATA  FOR  SYSTEM  #   1 


C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C***************************  MAIN  PROGRAM  **************************** 


THETA 
(RADIANS) 

. 000000E+00 
.314159E+00 
.628318E+00 
.942477E+00 
.125664E+01 
. 157080E+01 
. 188495E+01 
.219911E+01 
.251327E+01 
.282743E+01 
.314159E+01 


MAGNITUDE 


.200000E+01 
. 182897E+01 
. 150588E+01 
. 122886E+01 
.103088E+01 
.894428E+00 
.800894E+00 
.737654E+00 
. 696900E+00 
. 674038E+00 
. 666667E+00 


PHASE 
(DEGREES) 

. O00O0OE+O0 
-.164149E+02 
-.262677E+02 
-.29807E+02 
-.293546E+02 
-.265651E+02 
-.223862E+02 
-.173608E+02 
-.118186E+02 
-.597793E+01 
-.484184E-04 


END  OF  RUN,  SYSTEM  #  1 


AND  c()  COULD 
AND  WRITING  THE 


FOR  ILLUSTRATIVE  PURPOSES  THE  COEFFICIENTS  b() 
HAVE  BEEN  GENERATED  BY  SPECIFYING  dsorce  =  'S» 
APPROPRIATE  FORTRAN  STATEMENTS  INTO  SUBROUTINE  coeff .   THE 
STATEMENTS  THAT  COULD  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN  INTO 
THE  SUBROUTINE  BUT  ARE  'COMMENTED  OUT1  . 


character  infile*12,  mode*l,  ylabl*13,  dsorce*l,  yscal*3 
realmh(lOl),  ph(101) ,  thetav(lOl) ,  c(0:128),  b(0:128) 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if ( (mode.eq. 'Y' ) .or. (mode.eq. 'y * ) )  then 
mode  =  'Y' 
write (*, 1118) 
read (*, 1119)  infile 

else 
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infile  =  'DIGFREQ.IN1 
endif 

C  UNIT=1  DEFINED  AS  INHJT  FILE.   UNTTS=2,3  DEFINED  AS  OUTPUT  FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' DIGFREQ .  CUT ' ) 
open (unit=3 , f ile= ' DIGFREQ . DAT » ) 

C  READ  TNRJT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read (1,1000)  numsys 

nunplts  =  numsys*2 

write (3, 2 000)  nuinplts 

if  ( (numsys. It.  1)  .or.  (numsys. gt. 3) )  then 
write ( * , 1122 )  numsys 
stop  'Error,  numsys  must  be  in  the  range:  1  <=  numsys  <=  3. ' 

endif 

do  10  nsys=l,  numsys 
data  mh/101*0.0/,  ph/101*0.0/,  thetav/101*0.0/ 
data  b/129*0.0/,  c/129*0.0/ 

read(l,1001)  L,  N,  dsorce,  yscal 
read (1,1002)  dlthta,  thetaO,  numpts 

if((L.lt.0) .or. (L.gt.128))  then 

write (*, 1124)  nsys,  L 

stop  'Error,  L  must  be  in  the  range:  0  <=  L  <=  128. ' 
elseif((N.lt.O) .or. (N.gt.128))  then 

write (*, 1125)  nsys,  N 

stop  'Error,  N  must  be  in  the  range:  0  <=  N  <=  128. ' 
endif 

if ( (dsorce. eq. 'F' ) .or. (dsorce. eq. ' f ') )  then 

dsorce  =  'F' 
elseif ( (dsorce. eq. 'S') .or. (dsorce. eq. 's') )  then 

dsorce  =  'S' 
else 

write (*, 1018)  dsorce 

stop  "The  allowed  values  for  dsorce  are:  ' 'S' '  or  ' 'F' ' . ' 
endif 

if ( (numpts. It. 1) .or. (numpts. gt. 101) )  then 

write (*, 1127)  nsys,  numpts 

stop  'Error,  numpts  must  be  in  the  range:  1  <=  numpts  <=  101. ' 
endif 

if ( (yscal. eq. *STD') .or. (yscal. eq. 'std') )  then 

yscal  =  'STD' 

ylabl  =  '  MAGNITUDE   ' 
elseif ( (yscal. eq. 'LOG') .or. (yscal. eq. 'log') )  then 
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yscal  =  'DOG' 

ylabl  =  "MAGNITUDE (dB)  ' 
else 

write (*, 1128)  yscal 

stop  'Error,  yscal  must  be  the  string:  ' 'LOG' * 
endif 


or 


'STD' 


C  FOR  dsorce  =  'F'  READ  THE  COEFFICIENTS  b()  AND  c()  FROM  THE  INFUT 
C  FILE.   FOR  dsorce  =  'S'  CALL  coeff  TO  GENERATE  THE  COEFFICIENTS. 

if (dsorce. eq. 'F' )  then 

read (1,1003)  (b(k),k=0,L) 

read (1,1003)  (c(k) ,k=0,N) 
else 

call  coeff (L,N,nsys,b,c) 
endif 

C     WRITE  .NRJT  DATA  INTO  THE  OUTRJT  FILE:    DIGFREQ.OUT. 


write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 
write (2, 


1008 
1010 
1110 
1111 
1019 
1112 
1113 
1114 
1004 
1005 
1006 
1005 
1009 
1126 
1007 


nsys 

infile 

L 

N 

dsorce 

nurnpts,  yscal 

thetaO 

dlthta 

(b(k),k=0,L) 

(c(k),k=0,N) 

nsys 

ylabl 


C  FOR  TEST  MODE  ECHO  ALL  INHJTS  ONTO  MONITOR  (UNIT  =  *)  . 


if (mode. eq. 'Y' 
write (*, 1120 
write (*, 1110 
write (*, 1111 
write (*, 1019 
write (*, 1112 
write (*, 1113 
write (*, 1114 
write (*, 1004 
write (*, 1005 
write (*, 1006 
write (*, 1005 
write (*, 1123 


then 

nsys,  infile 

L 

N 

dsorce 

nurnpts ,  yscal 

thetaO 

dlthta 

(b(k),k=0,L) 


(c(k),k=0,N) 
nsys 

pause  'END  OF  RUN,  STRIKE  <CR>  WHEN  READY  TO  CONTINUE. ' 
endif 
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C  CALL  dfresp  TO  COMPUTE  THE  FREQUENCY  RESPONSE. 

call  dfresp (b, c,mh, ph, L,  N,  thetaO , dlthta, thetav, numpts , yscal) 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  DTGFREQ.DAT. 

write (3, 2001)  numpts 

write (3,*)  'MAGNITUDE  RESPONSE1 

write(3,*)  ■THETA  (rad) ' 

write (3, 2003)  ylabl 

do  55  np=l,  numpts 

write(3,2010)  thetav ( np ) ,  mh(np) 

55  continue 

write (3, 2001)  numpts 
write (3,*)  'PHASE  RESPONSE' 
write (3,*)  'THETA  (rad)' 
write (3, 2003)  '  PHASE  (DEG)  ' 
do  56  np=l,  numpts 

write(3,2010)  thetav ( np ) ,  ph(np) 

56  continue 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  DIGFREQ.OUT. 

do  150  np=l,  numpts 

write (2 ,1013)  thetav ( np ) ,  mh(np) ,  ph(np) 
150     continue 

write (2, 1123)  nsys 

10    continue 

write (*, 1121) 

999  close (unit=l) 
close (unit=2 ) 
close (unit=3 ) 

if (ierr.gt.0)  then 
write (*, 1116)  ierr 
endif 

C***********   INPUT  FORMAT  **************** 

1000  format (il) 

1001  format(i3, til, i3,t21,al,t31,a3) 

1002  formt(2fl0.0,i3) 

1003  format(6fl0.0) 

(];****■***'*•*•*•*****■*■***'************************ 

1004  format (t4, 'THE  NUMERATOR  COEFFICIENTS  b(0) ,b(l) ...b(L)  ARE:  ' ,/) 

1005  format(6(2X,ell.4) ,//) 
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1006  Of  ormat  (//,t4,  "THE  DENOMINATOR  COEFFICIENTS  c(0) ,c(l) . . .c(N) ' , 
1'  ARE:  ',/) 

1007  format (t6, ' (RADIANS) ' ,t38, ■ (DEGREES) ■ ,/) 

1008  f ormat (tl6,'  INPUT  DATA  FOR  SYSTEM  #  ',11,//) 

1009  f ormat (///, tl6,  '  OUTPUT  DATA  FOR  SYSTEM  #  ',il,/) 

1010  format ( t4 ,  'INPUT  DATA  SOURCEFI1E:  ',al2) 
1013  format(t4,3(el2.6,4x)) 

1018  format (lx, 'dsorce  =  ' ,al,2x, 'Error,  illegal  value  for  dsorce.') 

1019  f ormat (t 4, 'dsorce  =  ',alj 

1110  format (t4, 'DEGREE  OF  NUMERATOR  =  ' ,i3) 

1111  format (t4, 'DEGREE  OF  DENOMINATOR  =  ',i3) 

1112  Of ormat(t4, 'NUMBER  OF  FREQUENCY  POINTS  =  ' ,i3,t39, ' MAGNITUDE ' , 
1'  OPTION  =  • ,a3) 

1113  format (t4, 'STARTING  VALUE  OF  THETA  =  \el2. 6) 

1114  format (t4 , *  INCREMENT  OF  THETA  =  ' , el2 . 6 ,/) 

1115  0format(lx/ 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST1 , 
1'  MODE  ?    (Y/N)  <CR>  :  ',\,) 

1116  OformL t (///,  lx,  'ERROR  OPENING  INPUT  FILE,  PROGRAM  TERMINATED.  ', 
l//,lx, 'ERROR  CODE: ' ,14, /////) 

1117  format (al) 

1118  Of ormat (/////, lx, 'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED1, 
1'  BY  <CR>. • ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 
2'  SAMPLE  DATA  ALREADY  STORED',/,1  IN  THE  FILE:  DIGFREQ.TST' , 
3  '       TYPE:  DIGFREQ.TST  <CR>',/, '  FILENAME:  ',\,) 

1119  format (al2) 

1120  f ormat (////, t4, 'SYSTEM  #  • ,il, ■    INPUT  DATA  SOURCEFILE:  ',al2) 

1121  Of  ormat  (//,t4,  'TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  DIGFREQ.CUT' , 
l/,t4, 'PLOTTING  DATA  IS  STORED  IN  FILE:  DIGFREQ.DAT.  ') 

1122  f ormat (//////, t2, 'The  value  of  numsys  is:  ',il,'.') 

1123  format(/,lx,13('-») , '   END  OF  RUN,  SYSTEM  #  ' ,il,2x,13( '-' ) ,//) 

1124  0 format (//////, t2,  "The  degree (L)  of  the  numerator  for  system  ', 
l'#  \il,  '  is  :  L  =  ',i3,  '.  ■) 

1125  0 format (//////, t2, 'The  degree (N)  of  the  denominator  for  system' 
1, '  #  ',il,'  is  :  N  =  »,i3,'.') 

1126  format(///,t8, 'THETA' ,t21,al3,t40, 'PHASE') 

1127  f ormat (//////, t2, 'The  value  of  numpts  for  system  ',11,'  is:  ',i3) 

1128  f ormat (/////, t2, 'The  value  of  yscal  is:  • ,a3, ' . ') 

2000  format (il) 

2001  format (i3) 
2003  format (al3) 

2010  formatfe^.e^x^^.e) 

end 


SUBROUTINE:  dfresp 


C  PURPOSE:   THIS  SUBROUTINE  COMPUTES  THE  FREQUENCY  RESPONSE  OF 

C  THE  SYSTEM.   ALL  FREQUENCY  CALCULATIONS  ARE  IN  RADIANS, 

C  HOWEVER  THE  OUTPUT  IS  CONVERTED  TO  DEGREES. 
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C  THE  OUTHJT  FORMAT  FOR  EACH  FREQUENCY  INCREMENT  IS: 

C  MAGNITUDE  (M)    PHASE  (P)      AS  IN:   M*EXP(J*P)  . 


subroutine  df resp (b ,  c ,  mh ,  ph ,  L,  N , thetaO , dlthta , thetav , numpts , yscal ) 

real  mh  (numpts) ,  ph ( numpts ) ,  thetav ( numpts ) ,  imz,  rez 

real  b(0:L)  ,  c(0:N) 

character  yscal* 3 

complex  z,  den,  num,  h,  ci 

C  DEFINE  CONSTANTS. 

pi  =  4.0*atan(1.0) 
ci  =  (1.0,0.0) 

C  ITERATE  FROM  thetaO,  IN  INCREMENTS  OF  dlthta. 

do  100  np=l,  numpts 
num  =  ci*b(0) 
den  =  ci*c(0) 

thetav (np)  =  thetaO  +  (np-1) *dlthta 
rez  =  cos  (thetav  (np) ) 
ijnz  =  sin  (thetav  (np) ) 
z  =  cmplx(rez,imz) 

C  CALCULATE  NUMERATOR  FOR  GIVEN  VALUE  OF  THETA,  IF  L  >  0. 

if(L.gt.O)  then 
do  50  k=l,  L 

num  =  z*num  +  ci*b(k) 
50      continue 
endif 

C  CALCULATE  DENOMINATOR  FOR  GIVEN  VALUE  OF  THETA,  IF  N  >  0. 

if(N.gt.O)  then 
do  70  te=l,  N 

den  =  z*den  +  ci*c(k) 
70      continue 
endif 
h  =  num/den 

C  CONVERT  COMPLEX  VALUE  'h1  INTO  MAGNITUDE (mh)  AND  PHASE(ph)  TERMS. 
C  IF  yscal  =  'LOG'  THEN  CONVERT  MAGNITUDE  TO  DECIBELS  (dB) . 
C  DIVIDE  BY  ZERO  AVOIDED  BY  "if  STATEMENTS. 

mh(np)  =  cabs(h) 
if (yscal. eq. 'LOG1)  then 
if (mh (np) .gt. 0.00001)  then 
mh(np)  =  20.0*logl0(mh(np)) 
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else 

mh(np)  =  -100.0 
endif 
endif 

if(abs(real(h)) .lt.l.0e-15)  then 

if (abs(aimag(h)) .le.l.0e-15)  ph(np)=0.0 
if (aimag(h) .gt.l.0e-15)  ph(np)=90.0 
if  (aimag(h) .lt.-1.0e-15)  ph(np)=-90.0 

else 

ph(np)  =  (180. 0/pi) *atan2 (aimag(h) , real (h) ) 

endif 

100  continue 

return 
end 


SUBROUTINE:  coeff 


C  PURPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  THE 
C  NUMERATOR  AND  DENOMINATOR  COEFFICIENTS  THAT  DESCRIBE 

C  EACH  SYSTEM  TO  BE  ANALYZED.   IF  dsorce  =  'S1  THEN 

C  THE  MAIN  PROGRAM  WILL  CALL  THIS  SUBROUTINE. 


subroutine  coeff ( L , N , nsys , b , c ) 
real  b(0:L) ,  c(0:N) 

pi  =  4.0*atan(1.0) 
el  =  L 
en  =  N 

C************************************************^ 

C  DEVELOP  THE  EQUATIONS  TO  GENERATE  VALUES  FOR  THE  ARRAYS  b()  AND  c() 

C  IN  THIS  SPACE.   THE  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD 

C  FORTRAN  77  RULES  AND  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS: 

C  SLN()  ,  COS()  ,  ABS()  ...   AN  EXAMPLE  IS  SHOWN  BELOW.   NOTE  THAT  THE 

C  VALUE  nsys  CAN  BE  USED  TO  DISTINGUISH  BETWEEN  SYSTEMS  IF  MORE  THAN 

C  ONE  SYSTEM  (numsys  >  1)  IS  TO  BE  ANALYZED. 

C 

C  ***  EXAMPLE  *** 

C 
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C  if (nsys.eq.l)  then 

C  do  2  i=0,  L 

C  b(i)  =  cos(i*pi/(2.0*el)) 

C  2  continue 

C  do  3  i=0,  N 

C  c(i)  =  cos(2.0*i*pi/(3.0*en)) 

C  3  continue 

C  endif 


C******************************************^ 

return 
end 
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C  ANLGFREQ. FOR              VERSION  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  COMPUTES  THE  FREQUENCY  RESPONSE  OF 

C  CONTINUOUS-TIME  SYSTEMS.   THE  PROGRAM  CONSISTS  OF  A 

C  MAIN  PROGRAM  THAT  CONTROLS  THE  INPUT/OUTPUT  AND  THE 

C  SUBROUTINE  afresp  THAT  COMPUTES  THE  FREQUENCY 

C  RESPONSE.   THE  USER  CAN  SELECT  ONE  OF  TWO  OPERATING 

C  MODES:   BATCH  OR  TEST.   IN  BATCH  MODE  THE 

C  AMOUNT  OF  INTERFACE  WITH  THE  USER  IS  MINIMIZED  AND 

C  IT  IS  ASSUMED  THAT  THE  INPUT  DATA  HAS  BEEN  STORED  IN 

C  THE  DEFAULT  FILE  ' ANLGFREQ . IN • .   IN  THE  TEST 

C  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE  INPUT 

C  FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL  RUN  BY 

C  USING  THE  INPUT  DATA  STORED  LN  THE  FILE  '  ANLGFREQ .  1ST ' . 

C  IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  THE 

C  TEST  MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRE- 

C  STORED  INPUT  DATA.   THE  TEST  MODE  ECHOES  THE 

C  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF 

C  ITS  ACCURACY.   THIS  PROGRAM  WILL  COMPUTE  THE  FREQUENCY 

C  RESPONSE  OF  UP  TO  THREE  SYSTEMS.   FOR  EACH  SYSTEM,  THE 

C  USER  HAS  THE  OPTION  OF  HAVING  THE  OUTPUT  EXPRESSED  LN 

C  DECIBELS  (dB) .  THE  OUTPUT  OF  THIS  PROGRAM  IS  STORED  IN 

C  TABULAR  FORM  LN  THE  FILE  ' ANLGFREQ . CUT ■  AND  IN  A  FORM 

C  SUITABLE  FOR  PLOTTING  IN  THE  FILE  'ANLGFREQ.DAT1. 

C 

C 

C*****************************   INPUT   ********************************* 

C 

C  THIS  PROGRAM  ASSUMES  THAT  EACH  CONTINUOUS -TIME  SYSTEM  IS  MODELED 

C  BY  THE  EQUATION:  H(s)  =  num/den  WHERE: 

C 

C  num  =  b(0)*s**L  +  b(l)*s**(L-l)  +  ...  +  b(L-l)*s  +  b(L) 

C 

C  den  =  a(0)*s**N  +  a(l)*s**(N-l)  +  ...  +  a(N-l)*s  +  a(N) 

C 

C  L  =  A  NON-NEGATIVE  INTEGER,  THE  DEGREE  OF  THE  NUMERATOR 

C  POLYNOMIAL. 

C  N  =  A  NON-NEGATIVE  INTEGER,  THE  DEGREE  OF  THE  DENOMINATOR 

C  POLYNOMIAL. 

C  b(0) . . .b(L)  =  REAL  COEFFICIENTS  OF  THE  NUMERATOR  TERMS. 

C  a(0) . . .a(N)  =  REAL  COEFFICIENTS  OF  THE  DENOMINATOR  TERMS. 

C 

C  THE  INPUT  PARAMETERS  SHOULD  BE  STORED  LN  A  FILE  NAMED 

C  'ANLGFREQ. LN' .   ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 

C  REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE  PAID 

C  TO  THE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 

C  DENOTE  'REAL'  NUMBERS.   THE  INPUT  PARAMETERS  REQUIRED  BY  THE 

C  PROGRAM  ARE  LISTED  BELOW. 

C 

C 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


NAME 

numsys 

L 

N 

amegaO 

dlomga 

numpts 

yscal 

b() 

a() 


TYPE 

INTEGER 

INTEGER 

INTEGER 

REAL 

REAL 

INTEGER 

CHARACTER 

REAL 

REAL 


RANGE  (ARRAYS) 


0,1,2 
0,1,2 


,L 
,N 


RESTRICTIONS 

1  <=  numsys  <=  3 
0  <=  L  <=  128 
0  <=  N  <=  128 


1  <=  numpts  <=101 
'STD'  OR  'LOG' 
0  <=  L  <=  128 
0  <=  N  <=  128 


WHERE: 

numsys  =  THE  NUMBER  OF  DISTINCT  SYSTEMS  H(s)  TO  BE  ANALYZED. 

THIS  INTEGER  VALUE  MUST  OCCUR  AT  THE  TOP  OF  THE  INPUT 
FILE.  IT  DELINEATES  THE  NUMBER  OF  SYSTEMS  TO  BE  READ  BY 
THE  PROGRAM  AND  ANALYZED.  FOR  EACH  SYSTEM  (1,  . . . ,  numsys) 
THE  PARAMETERS  BELOW  MUST  APPEAR  IN  THE  INPUT  FILE. 

L  =  THE  DEGREE  OF  THE  NUMERATOR  POLYNOMIAL. 

N  =  THE  DEGREE  OF  THE  DENOMINATOR  POLYNOMIAL. 

omegaO  =  THE  STARTING  VALUE  OF  OMEGA  (RAD/S)  AS  IN  S=C*GMEGA. 

dlomga  =  THE  INCREMENT  OF  OMEGA  (RAD/S)  . 

numpts  =  THE  NUMBER  OF  FREQUENCY  POINTS  FOR  WHICH  THE  OUTPUT  IS  TO 
BE  COMPUTED. 

yscal  =  A  CHARACTER  STRING  SPECIFYING  THE  DESIRED  MAGNITUDE  OPTION: 
'STD'  WILL  PRODUCE  STANDARD  MAGNITUDE  OUTPUT; 
'LOG'  WILL  PRODUCE  MAGNITUDE  EXPRESSED  LN  DECIBELS  (dB) . 

b(k)  =  THE  NUMERATOR  COEFFICIENTS  LN  ORDER  b(0) ,  b(l) ,  . . . ,  b(L)  . 

a(k)  =  THE  DENOMINATOR  COEFFICIENTS  LN  ORDER  a(0) ,  a(l) ,  . . . ,  a(N)  . 

NOTE:   THE  INPUT  FORMAT  STATEMENTS  OCCUR  LN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 


LINE  # 

I 

2 
3 

4 . . . 4+NN 
5+NN...5+NN+N 
* 


ENTRIES 

numsys 
L, N , numpts , yscal 
dlcmga , omegaO 
b(k) ,  k=0,l,...L 
a(k) ,  k=0,l,...N 


FORMAT 

n 

i3,tll,i3,t21,i3,t31,a3 
2fl0.0 
6fl0.0 
6fl0.0 
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C  WHERE:   NN  =  L/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER. 

C         ND  =  N/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER. 

C 

C  *NOTE:   FOR  numsys  >  1  THE  FORMAT  OF  LINES  2. . .  IS  REPEATED. 

C 

C  THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 

C  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 

C  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED    (EG. 

C  3146.2  =  3. 1462E+03) . 

C 

C 

C*****************************      OUTPUT         ******************************* 

C 

c  . 

C  THE  OUTPUT  DATA  CREATED  BY  THE  PROGRAM  IS  STORED  IN  TABULAR  FORM 

C  IN  THE  FILE  'ANLGFREQ. OUT1 .   ADDITIONALLY,  THE  OUTPUT  DATA  IS 

C  WRITTEN  INTO  THE  FILE  ■  ANLGFREQ .  DAT  *  TO  FACILITATE  PLOTTING  BY  A 

C  SEPARATE,  USER  SUPPLIED  PROGRAM.   THE  FORMAT  OF  THE  DATA  IN 

C  'ANLGFREQ. DAT'  IS:  el2.6,  2x,  el2.6.   THE  FIRST  ENTRY  CORRESPONDS 

C  TO  THE  ORDINATE  VALUE  (OMEGA)  AND  THE  SECOND  ENTRY  THE  ABSCISSA 

C  VALUE  (MAGNITUDE  OR  PHASE)  .   ADDITIONAL  HEADER  INFORMATION  IS 

C  WRITTEN  INTO  THE  DATA  FILE  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF 

C  EACH  PLOT. 

C 

C 

C****************************   EXAMPLE   ******************************** 

C 

C 

C  THE  INPUT  PARAMETERS  FOR  THE  SYSTEM  DESCRIBED  BELOW  ARE  STORED  IN 

C  THE  SAMPLE  INPUT  FILE  ' ANLGFREQ. TST1  AND  CAN  BE  USED  FOR  A  TRIAL 

C  RUN  IN  THE  TEST  MODE. 

C 

C 

C  SYSTEM:  H(s)  =  10.0*s/(s**2  +  6.0*s  +  5.0) 

C 

C  GOAL:    TO  OBTAIN  THE  FREQUENCY  RESPONSE  FOR  THIS  SYSTEM  FROM 

C  OMEGA  =  0.0  TO  OMEGA  =  4.0  (RAD/S)  IN  STEPS  OF 

C  dlomga  =0.2  (RAD/S). 

C 

C  FOR  THE  SYSTEM  DESCRIBED  ABOVE  THE  INPUT  FILE  IS: 

C 

C  001 

C  001       002       021       STD 

C  0.2       0.0 

C   10.0      0.0 

C  1.0       6.0       5.0 

C 

C 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


THE  RESULTING  OUTHJT  DATA  FILE  ( ' ANLGFREQ . OUT ' )  IS: 
INKJT  DATA  FOR  SYSTEM  #   1 


INPUT  DATA  SOURCEFILE:  ANLGFREQ. TST 
DEGREE  OF  NUMERATOR  =   1 
DEGREE  OF  DENOMINATOR  =   2 
NUMBER  OF  FREQUENCY  POINTS  =   21 
STARTING  VALUE  OF  OMEGA  =   .000000E+00 
INCREMENT  OF  OMEGA  =   .200000E+00 


MAGNITUDE  OPTION  =  STD 


THE  NUMERATOR  COEFFICIENTS  b(0) ,b(l) . . .b(L)  ARE: 
. 1000E+02    . 0000E+00 

THE  DENOMINATOR  COEFFICIENTS  a(0) ,a(l) . . .a(N)  ARE: 
. 1000E+01     . 6000E+01     . 5000E+01 


OUTPUT  DATA  FOR  SYSTEM  # 


OMEGA 
(rad/s) 

000000E+00 

200000E+00 

400000E+00 

600000E+00 

800000E+00 

,  100000E+01 

120000E+01 

,  140000E+01 

160000E+01 

,  180000E+01 

200000E+01 

220000E+01 

240000E+01 

260000E+01 

,  280000E+01 

,  300000E+01 

.320000E+01 

,  340000E+01 

.360000E+01 

.380000E+01 

.400000E+01 


MAGNITUDE 


000000E+00 

391919E+00 

740416E+00 

102166E+01 

123370E+01 

138675E+01 

149402E+01 

156719E+01 

161531E+01 

164497E+01 

166091E+01 

,  166654E+01 

,  166435E+01 

,  165616E+01 

,  164335E+01 

,  162698E+01 

,  160786E+01 

158665E+01 

,  156386E+01 

,  153990E+01 

.151511E+01 


PHASE 
(DEGREES) 

,  000000E+00 
.763995E+02 
.636247E+02 
.521935E+02 
.422499E+02 
.336901E+02 
.263098E+02 
,  198954E+02 
,  142607E+02 
.925573E+01 
.476364E+01 
,  694459E+00 
.302114E+01 
.643692E+01 
.959500E+01 
,  125288E+02 
.152652E+02 
.178262E+02 
.202298E+02 
.224913E+02 
.246236E+02 


END  OF  RUN,  SYSTEM  #  1  
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C**************************   MATN  PROGRAM   ***************************** 

character  infile*12,  mode*l,  ylabl*13,  yscal*3 

real  mh( 101),  ph(101) ,  omegav(lOl) ,  a(0:128),  b(0:128) 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if ( (mode.eq. 'Y1 ) .or. (mode.eq. 'y * ) )  then 
mode  =  'Y1 
write (*, 1118) 
read (*, 1119)  infile 

else 
infile  =  'ANLGFREQ.  IN' 

endif 

C  UNTT=1  DEFINED  AS  INPUT  FIIE.   UNTTS=2,3  DEFUSED  AS  OUTPUT  FILES. 

open (unit=l, file= infile, status=' old1 , iostat=ierr,err=999) 
open (unit=2 , f ile= ' ANLGFREQ . OUT ' ) 
open (unit=3 , f ile= • ANLGFREQ . DAT  * ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read (1,1000)  numsys 
numplts  =  numsys*2 
write (3, 2000)  numplts 

if ( (numsys. It. 1) .or. (numsys. gt. 3) )  then 
write ( * , 1122 )  numsys 
stop  'Error,  numsys  must  be  in  the  range:  1  <=  numsys  <=  3. ' 

endif 

do  10  nsys=l,  numsys 

data  mh/101*0.0/,  ph/101*0.0/,  omegav/ 101*0.0/ 
data  a/129*0.0/,  b/129*0.0/ 

read (1,1001)  L,  N,  numpts,  yscal 
read (1,1002)  dlomga,  omegaO 

if((L.lt.0) .or. (L.gt.128))  then 

write(*,1124)  nsys,  L 

stop  'Error,  L  must  be  in  the  range:  0  <=  L  <=  128. ' 
elseif((N.lt.O) .or. (N.gt.128))  then 

write (*, 1125)  nsys,  N 

stop  'Error,  N  must  be  in  the  range:  0  <=  N  <=  128. ' 
endif 
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if ( (numpts.lt. 1) .or. (numpts. gt. 101) )  then 

write (*, 1127)  nsys,  numpts 

stop  'Error,  numpts  must  be  in  the  range:  0  <=  numpts  <=  101. ' 
endif 

if ( (yscal . eq. ' STD ' ) . or . (yscal . eq. ' std ■ ) )  then 

yscal  =  'STD1 

ylabl  =  '  MAGNITUDE   ' 
elseif ( (yscal. eq. 'LOG') .or. (yscal. eq. 'log') )  then 

yscal  =  'IDG' 

ylabl  =  'MAGNITUDE (dB) ' 
else 

write (*, 1128)  yscal 

stop  'Error,  yscal  must  be  the  string:  ' 'IDG' '  or  ' 'STD' ' . ' 
endif 

C  READ  THE  SYSTEM  COEFFICIENTS  b()  AND  a() . 

read(l,1003)  (b(k),k=0,L) 
read(l,1003)  (a(k),k=0,N) 


LUTE  THE  INHJT 

PARAMETERS  INTO 

write (2, 1008) 

nsys 

write (2, 1010) 

infile 

write(2,1110) 

L 

write (2, 1111) 

N 

write (2, 1112) 

numpts ,  yscal 

write (2, 1113) 

omegaO 

write (2, 1114) 

dlomga 

write (2, 1004) 

write (2, 1005) 

(b(k),k=0,L) 

write (2 ,1006) 

write (2, 1005) 

(a(k),k=0,N) 

write (2, 1009) 

nsys 

write (2, 1126) 

ylabl 

write (2, 1007) 

)R  TEST  MODE  E< 

3HO  ALL  INPUTS  0 

if (mode. eq. 'Y 

»)  then 

write  (*,  1121 

D)  nsys,  infile 

write (*, 111 

D)  L 

write ( * , 111 

L)  N 

write  (*,  111; 

2 )  numpts ,  yscal 

write (*, 111 

3 )  omegaO 

write(*, 111 

4 )  dlomga 

write  (*,  100- 

4) 

write (*, 100 

5)  (b(k),k=0,L) 

write ( * , 100 

5) 

write (*, 100 

5)  (a(k),k=0,N) 

write (*, 112 

3)  nsys 

=  *) 
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pause    'END  OF  RUN,    STRIKE  <CR>  WHEN  READY  TO  CONTINUE1 
endif 

C     CALL  afresp  TO  COMPUTE  FREQUENCY  RESPONSE. 

call  afresp(b,a,mh/ph,L,N,onegaO,dlc5inga,oinegav,nuTipts,yscal) 

C     WRITE  RESULTS  INTO  OUTPUT  FILE:   ANLGFREQ.DAT. 

write(3,2001)  numpts 

write (3,*)  'MAGNITUDE  RESPONSE' 

write(3,*)  ' OMEGA (rad/s) ' 

write (3, 2 003)  ylabl 

do  55  np  =  1,  numpts 

write(3,2010)  omegav(np) ,  mh(np) 

55  continue 

write (3, 2001)  numpts 
write (3,*)  'PHASE  RESPONSE' 
write (3 , *)  *  OMEGA  (rad/s) ' 
write(3,2003)  '  PHASE  (DEG)  ' 
do  56  np  =  1,  numpts 

write(3,2010)  omegav(np) ,  ph(np) 

56  continue 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  ANLGFREQ.OUT. 

do  150  np=l,  numpts 

write (2, 1013)  omegav(np) ,  mh(np) ,  ph(np) 
150     continue 

write (2, 1123)  nsys 

10    continue 

write (*, 1121) 

999  close (unit=l) 
close (unit=2) 
close (unit=3 ) 

if (ierr.gt.0)  then 
write (*, 1116)  ierr 
endif 

C  ************   INPUT  FORMAT  ************* 

1000  format (i3) 

1001  format (i3 , til, i3 , t21, i3 , t31, a3) 

1002  format (2f 10.0) 

1003  format (6 (f 10.0)) 
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Q        ***************************************** 

1004  format(t4,  "THE  1NIUMERATOR  COEFFICIENTS  b(0)  ,b(l)  . .  .b(L)    ARE:  ' ,/) 

1005  format(6(2X,ell.4) ,//) 

1006  Of  ormat  (//,t4,  "THE  DENOMINATOR  COEFFICIENTS  a(0) ,a(l) . . .a(N) ' , 
1'  ARE: ',/) 

1007  format (t8,  '  (rad/s)  '  ,24x,  '  (DEGREES)  ' ,/) 

1008  f ormat ( tl6, '  INPUT  DATA  FOR  SYSTEM  #  '  ,11,//) 

1009  format (///,tl6,  '  OUTPUT  DATA  FOR  SYSTEM  #  '  ,il,/) 

1010  format ( t4 , 'INPUT  DATA  SOURCEFILE:  f,al2) 
1013  format(t4,3(el2.6,4x)) 

1110  format (t4, 'DEGREE  OF  NUMERATOR  =  \i3) 

1111  format (t4, 'DEGREE  OF  DENOMINATOR  =  ',i3) 

1112  Of ormat (t4, 'NUMBER  OF  FREQUENCY  POINTS  =  ',  i3,t40,  'MAGNITUDE' , 
1'  OPTION  =  ',a3) 

1113  format (t4, 'STARTING  VALUE  OF  OMEGA  =  ' ,el2.6) 

1114  format(t4, 'INCREMENT  OF  OMEGA  =  \el2.6,/) 

1115  0format(lx, 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 
1'  MODE  ?    (Y/N)  <CR>  :  • ,\,) 

1116  0  f  ormat  (///,lx,  'ERROR  OPENING  INPUT  FILE,  PROGRAM  TERMINATED.  ' , 
l//,lx, 'ERROR  CODE: ' , i4 ,/////) 

1117  format (al) 

1118  Of ormat (///// ,lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>. ' ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 
2'  SAMPLE  DATA  ALREADY  STORED',/,'  IN  THE  FILE:  ANLGFREQ .  TST ' , 
3  '       TYPE:  ANLGFREQ. TST  <CR>',/, '  FLLENAME:  ',\,) 

1119  format (al2) 

1120  f ormat (////, t4, 'SYSTEM  #  ',il,'   LNPUT  DATA  SOURCEFLLE:  ',al2) 

1121  Of  ormat  (/,t4,  'TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  ANLGFREQ .  OUT ' 
l,/,t4, 'PLGTTLNG  DATA  LS  STORED  LN  FLLE:  ANLGFREQ.DAT') 

1122  f ormat (////// ,t2, 'The  value  of  numsys  is:  ',il,'.') 

1123  format(/,lx,13('-») , '   END  OF  RUN,  SYSTEM  #' ,il,2x,13( '-') ,//) 

1124  0 format (//////, t2, 'The  degree (L)  of  the  numerator  for  system  ', 
l'#  Ml,'  is  :  L  =  ',i3,'.') 

1125  0 format (//////, t2,  "The  degree (N)  of  the  denominator  for  system  ', 
l'#  ',il, "  is  :  N  =  *,i3, '. ') 

1126  format (/// , t8 , ' OMEGA ' , t21 , al3 , t40 , ' PHASE ' ) 

1127  f ormat (//////, t2,  "The  value  of  numpts  for  system  \il,'  is:  *,i3) 

1128  f ormat (//////, t2,  "The  value  of  yscal  is:  ' ,a3, ' . ') 

2000  format (il) 

2001  format (i3) 
2003  format (al3) 

2010  format(el2.6,2x,el2.6) 

end 


177 


SUBROUTINE:  afresp 


C  PURPOSE:   THIS  SUBROUTINE  COMPUTES  THE  FREQUENCY  RESPONSE  OF 

C  THE  SYSTEM.   ALL  FREQUENCY  CALCULATIONS  ARE  IN  RADIANS, 

C  HOWEVER  THE  OUTPUT  IS  CONVERTED  TO  DEGREES. 

C  THE  OUTPUT  FORMAT  FOR  EACH  FREQUENCY  INCREMENT  IS: 

C  MAGNITUDE  (M)    PHASE  (P)       AS  LN:   M*EXP(J*P)  . 


subroutine  afresp  (b ,  a  ,iriti,  ph,  L,N,  omegaO ,  dlomga ,  omegav ,  numpts ,  yscal ) 

real  mh  (numpts) ,  ph(nunpts) ,  omegav (numpts) 

real  b(0:L) ,  a(0:N) ,  ims,  res 

character  yscal* 3 

complex  s,  den,  num,  h,  ci 

C  DEFINE  CONSTANTS. 

ci  =  (1.0,0.0) 

pi  =  4.0*atan(1.0) 

C  ITERATE  FROM  omegaO,  IN  INCREMENTS  OF  dlomga. 

do  100  np=l,  numpts 
num  =  ci*b(0) 
den  =  ci*a(0) 

omegav (np)  =  omegaO  +  (np-1) *dlomga 
res  =0.0 
ims  =  omegav (np) 
s  =  cmplx(res,ims) 

C  CALCULATE  NUMERATOR  FOR  GIVEN  VALUE  OF  OMEGA,  IF  L  >  0. 

if(L.gt.O)  then 
do  50  te=l,  L 

num  =  s*num  +  ci*b(k) 
50       continue 
endif 

C  CALCULATE  DENOMINATOR  FOR  GIVEN  VALUE  OF  OMEGA,  IF  N  >  0. 

if(N.gt.O)  then 
do  70  te=l,  N 

den  =  s*den  +  ci*a(k) 
70       continue 
endif 

h  =  num/den 
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C  CONVERT  COMPLEX  VALUE  'h'  INTO  MAGNITUDE (mh)  AND  PHASE(ph)  TERMS, 
C  IF  yscal  =  'LOG'  THEN  CONVERT  MAGNITUDE  TO  DECIBELS  (dB) . 
C  DIVIDE  BY  ZERO  AVOIDED  BY  'if  STATEMENTS. 

mh(np)  =  cabs(h) 
if (yscal. eq. 'LOG')  then 
if (mh(np) .gt. 0.00001)  then 

mh(np)  =  20.0*logl0(mh(np) ) 
else 

mh(np)  =  -100.0 
endif 
endif 

if(abs(real(h)) .lt.l.0e-15)  then 

if(abs(aimag(h)) .le.l.0e-15)  ph(np)=0.0 

if (aimag(h) .gt.l.0e-15)  ph(np)=  90.0 

if (aimag(h) .lt.-1.0e-15)  ph(np)=-90.0 
else 

ph(np)  =  (180. 0/pi) *atan2 (aimag(h) , real (h) ) 
endif 

100   continue 

return 
end 
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C  DFT.FOR  VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM 

C  (DFT)  OR  THE  INVERSE  DISCRETE  FOURIER  TRANSFORM  (IDFT)  OF 

C  A  SEQUENCE  OF  COMPLEX  INPUT  DATA.   THE  PROGRAM  CONSISTS 

C  OF  A  MAIN  PROGRAM  AND  THREE  SUBROUTINES.  THE  SUBROUTINE 

C  dft  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE 

C  INPUT  ARRAY;  THE  SUBROUTINE  invdft  COMPUTES  THE 

C  INVERSE  DISCRETE  FOURIER  TRANSFORM;  AND  THE  SUBROUTINE 

C  sample  ALLOWS  THE  USER  TO  GENERATE  THE  INPUT  SEQUENCE  BY 

C  WRITING  THE  APPROPRIATE  EQUATIONS.   IF  THE  USER  ELECTS 

C  TO  GENERATE  THE  INPUT  DATA  BY  USING  THE  SUBROUTINE 

C  sample,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE 

C  SUBROUTINE  USING  STANDARD  FORTRAN  77  EXECUTABLE  STATE- 

C  MENTS  AND  THE  INPUT  DATA  GENERATED  MUST  BE  STORED  IN 

C  THE  ARRAY  xin() .  THE  OUTPUT  OF  'DFT.FOR'  IS  STORED  IN 

C  THE  ARRAY  xout() .  THE  USER  HAS  THE  OPTION  OF  SELECTING 

C  ONE  OF  TWO  OPERATING  MODES:  BATCH  OR  TEST.  IN  BATCH 

C  MODE  THE  AMOUNT  OF  INTERACTION  WITH  THE  USER  IS 

C  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT  PARAMETERS 

C  HAVE  BEEN  STORED  IN  THE  INPUT  FILE  'DFT. IN'.   IN 

C  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 

C  INPUT  FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL 

C  RUN  USING  THE  DATA  STORED  IN  THE  FILE  'DFT.TST' . 

C  IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  TEST 

C  MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED 

C  DATA.   THE  TEST  MODE  ECHOES  PORTIONS  OF  THE 

C  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION 

C  OF  ITS  ACCURACY.   THE  OUTPUT  IS  STORED  IN  TABUIAR  FORM 

C  IN  THE  FILE  'DFT. OUT'  AND  IN  A  FORM  SUITABLE  FOR 

C  PLOTTING  IN  THE  FILE  'DFT. DAT'. 

C 

C 

C******************************  INPUT  ******************************** 

C 

C 

C  THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  »N'  COMPLEX  VALUES  IN  THE 

C  INPUT  SEQUENCE.   THE  INPUT  SEQUENCE  IS  ASSUMED  TO  BE  DEFINED  IN  THE 

C  INTERVAL:  0  TO  N-l.  IF  THE  INPUT  SEQUENCE  CONSISTS  OF  'REAL'  NUMBERS, 

C  THE  IMAGINARY  PART  IS  STORED  AS  0.0.   THE  VALUE  'N'  AS  WELL  AS  THE 

C  OTHER  PARAMETERS  DESCRIBED  BELOW  SHOULD  BE  STORED  IN  THE  INPUT 

C  FILE  'DFT. IN" .   ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 

C  REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE  PAID  TO 

C  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 

C  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 
C 
C 
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C  NAME         TYPE       RANGE  (ARRAYS)  RESTRICTIONS 

C  N  INTEGER  1  <=  N  <=  256 

C  dsorce      CHARACTER  'F'   OR  'S' 

C  option      CHARACTER  'DFT1  OR  'INV1 

C  xin()       COMPLEX     O,  1,  ...,  N-l         1  <=  N  <=  256 

C 

C  WHERE: 

C 

C  N  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  COMPLEX  VALUES  IN  THE 

C      INPUT  SEQUENCE. 

C 

C  dsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 

C  INPUT  SEQUENCE  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO  BE 

C  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN  THE 

C         SUBROUTINE  sample. 

C 

C  option  =  A  CHARACTER  STRING  OF  THE  LETTERS  'DFT*  OR  'INV' 

C  DENOTING  WHETHER  THE  DFT  OR  THE  INVERSE  DFT  IS  TO  BE 

C  PERFORMED  ON  THE  INPUT  DATA. 

C 

C  xin()  =  THE  ARRAY  OF  COMPLEX  LNPUT  DATA.   LF  dsorce  =  »F' 

C  IS  SELECTED  THEN  THE  USER  MUST  SUPPLY  THE  N  LNPUT 

C         VALUES  IN  THE  FILE.   IF  dsorce  =  'S'  THEN  THE  USER 

C         HAS  ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY  WRITING 

C         THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE 

C         PROVIDED  IN  SUBROUTINE  sample.   IF  THIS  METHOD 

C         OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE 

C  RECOMPLLED  BEFORE  EXECUTION. 

C 

C  NOTE:   THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

C        FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C        THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 

C  LLNE#  ENTRIES  FORMAT 

C    1  N, dsorce, option         i3,tll,al,t21,a3 

C  2...N+1  xin()  2fl0.0 

C 

C 

C  NOTES  1.   LINES  2. . .N+l  ARE  ONLY  REQUIRED  IF  dsorce  =  'F' . 

C  IF  dsorce  =  'S*  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 

C  THE  N  VALUES  FOR  xin()  LN  THE  SUBROUTINE  sample.   THE 

C  USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN 

C  SUBROUTINE  sample  TO  GENERATE  xin() . 

C 

C        2.   THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE 

C  DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 

C  COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 

C  USED  (E.G.,  3146.2  =  3.1462E+03). 

C 

C 

181 


C******************************  OUTPUT  ******************************* 

C 
C 
C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  APE  STORED  IN  TABULAR  FORM 

C  IN  THE  FILE  'DFT.OUT' .   ADDITIONALLY,  THE  INPUT  SEQUENCE  (REAL  AND 
C   IMAGINARY)  AND  THE  OUTPUT  SEQUENCE  (MAGNITUDE  AND  PHASE)  ARE  WRITTEN 

C  INTO  THE  FILE  'DFT. DAT'  TO  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER 

C  SUPPLIED  PROGRAM.   THE  FORMAT  OF  THE  DATA  IN  'DFT-DAT'  IS: 

C  el2.6,  2x,  e!2.6.   THE  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE 

C  AND  THE  SECOND  ENTRY,  THE  ABSCISSA  VALUE.   ADDITIONAL  HEADER 

C  INFORMATION  IS  WRITTEN  INTO  'DFT.DAT'  TO  ALLOW  FOR  CONTROL  AND 

C  LABELING  OF  EACH  PLOT. 

C 

C 

C******************************  EXAMPLE   ****************************** 

C 

C 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 

C   'DFT.TST' .   THERE  ARE  FIVE  DATA  POINTS  IN  THE  INPUT  SEQUENCE  AND  THE 

C  GOAL  IS  TO  CALCULATE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE  SEQUENCE. 

C 

C 

C  005       F         DFT 

C  0.0       0.0 

C  1.0       0.0 

C  2.0       0.0 

C  3.0       0.0 

C  4.0       0.0 

C 

C 

C  THE  RESULTING  OUTPUT  DATA  FILE  'DFT.OUT'  IS: 

C 

C  INPUT  DATA  SOURCEFILE:  DFT.TST 

C  VALUE  OF  N  =   5     dsorce  =  F     option  =  DFT 

C 

C 

C  INPUT  DATA 

C 

C   SAMPLE  #   REAL         IMAGINARY 

C 

C       0     .000000E+00    .000000E+00 

C       1     .100000E+01    .000000E+00 

C       2      .200000E+01    .000000E+00 

C       3      .300000E+01    .000000E+00 

C       4      .400000E+01    .000000E+00 
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SAMPLE  #   REAL 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

C***************************  MAIN  PROGRAM  **************************** 


. 100000E+02 
-.250000E+01 
-.250000E+01 
-.250000E+01 
-.250000E+01 


OUTPUT  DATA 

IMAGINARY 

. 000000E+00 

.344096E+01 

.812300E+00 

-.812299E+00 

-.344096E+01 


MAGNITUDE 

. 100000E+02 
.425325E+01 
.262866E+01 
.262866E+01 
.425326E+01 


PHASE 

(DEGREES) 

. 000000E+00 

. 126000E+03 

.162000E+03 

-.162000E+03 

-.126000E+03 


FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCE  xin()  COULD  HAVE  BEEN 
GENERATED  BY  SPECIFYING  dsorce  =  'S1  AND  WRITING  THE  APPROPRIATE 
FORTRAN  STATEMENTS  INTO  SUBROUTINE  sample.   THE  STATEMENTS  THAT 
COULD  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN  INTO  THE  SUBROUTINE 
BUT  ARE  •COMMENTED  OUT' . 


character  infile*12,  option*3,  mode*l,  dsorce*l,  yscal*3 
complex  xin (0:255) ,  xout (0:255) 
real  xmag(0:255),  xph(0:255),  nn 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if ((mode.eq. 'y') .or. (mode.eq. 'Y') )  then 
mode  =  'Y1 
write (*, 1118) 
read (*, 1119)  infile 

else 
infile=  'DFT. IN ' 

endif 

C  UNIT=1  DEFINED  AS  INPUT  FILE.   UNITS=2,3  DEFINED  AS  OUTPUT  FILES. 

open (unit=l , file= infile , status= ■ old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' DFT . OUT ' ) 
open (unit=3 , f ile= ■ DFT . DAT ■ ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read (1,1000)  N,  dsorce,  option 
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if((N.lt.l) .or. (N.gt.256))  then 
write (*, 1010)  N 
stop  "The  allowed  values  for  N  are:  1  <=  N  <=  256. ' 

endif 

if ( (option. eq. ' dft • ) . or . (option. eq. *  DFT ' ) )  then 
option  =  'DFT' 

elseif( (option. eq. 'inv') .or. (option. eq. 'INV1))  then 
option  =  'INV1 

else 
write (*, 1011)  option 
stop  "The  allowed  values  for  option  are:  ' 'DFT' '  or  ' 'INV' ' . ■ 

endif 

if ( (dsorce.eq. 'f ') .or. (dsorce.eq. 'F') )  then 
dsorce  =  'F' 

elseif ( (dsorce.eq. 's') .or. (dsorce.eq. 'S1) )  then 
dsorce  =  'S' 

else 
write (*, 1009)  dsorce 
stop  "The  allowed  values  for  dsorce  are:  ' 'S ' '  or  ' 'F' ' . ' 

endif 

C  DEFINE  CONSTANTS. 

en  =  N 

k  =  8 

pi  =  4.0*atan(1.0) 

numplts  =  4 

yscal  =  'STD' 

C  FOR  dsorce  =  'F'  READ  THE  INHJT  SEQUENCE  FROM  THE  TNRJT  FILE. 
C  FOR  dsorce  =  'S'  CALL  sample  TO  GENERATE  THE  INHJT  SEQUENCE. 
C  THE  TNRJT  SEQUENCE  IS  STORED  IN  THE  ARRAY  xin()  . 

if (dsorce.eq. *Ff)  then 
read(l,1001)  (xin(i) ,i=0,N-l) 

else 
call  sample (xin,N) 

endif 

C  FOR  TEST  MODE  ECHO  INHJT  DATA  ONTO  THE  MONITOR  (UNIT  =  *)  . 

if (mcde.eq. 'Y' )  then 
write (*, 1016)  infile 
if(N.lt.8)  k=N 
write (*, 1017)  N,  dsorce,  option 


184 


write (*, 1012)  k 
write (*, 1015) 
do  1  i=0,  k-1 

write(*,1020)  i,  xin(i) 

1  continue 
endif 

C  WRITE  THE  INRJr  SEQUENCE  INTO  FILE:  DFT.DAT. 

write (3, 2 000)  nunplts 

write (3, 2001)  N 

write (3,*)  'INHJT  SEQUENCE  (REAL)' 

write(3,*)  'SAMPLE  #  ■ 

write(3,*)  'REAL  xin() ' 

do  55  i=0,  N-l 
nn  =  i 
write(3,2010)  nn,  real(xin(i)) 

55  continue 

write (3, 2001)  N 

write ( 3 ,  *)  ' INPUT  SEQUENCE  ( IMAGINARY)  ' 

write (3,*)  'SAMPLE  #  ' 

write(3,*)  'IMAG  xin() ' 

do  56  i=0,  N-l 
nn  =  i 
write(3,2010)  nn,  aimag(xin(i) ) 

56  continue 

C  WRITE  INPUT  DATA  INTO  FILE:  DFT.OUT. 

write (2, 1016)  infile 
write (2, 1017)  N,  dsorce,  option 
write (2, 1014) 
write (2, 1015) 
do  2  i=0,  N-l 
write(2,1020)  i,  xin(i) 

2  continue 

C  CALL  dft  OR  invdft  TO  PERFORM  THE  SELECTED  COMPUTATION. 

if (option. eq. ' INV ' )  then 
call  invdft (N,xin,xout) 

else 
call  dft(N,xin,xout) 

endif 

C  TRANSFORM  OUTPUT  DATA  INTO  EXPONENTIAL  FORM:  xmag*EXP(j*xph) 
C  PHASE  xph()  IS  EXPRESSED  IN  DEGREES. 

do  60  i=0,  N-l 
xmag(i)  =  cabs(xout(i) ) 
if (abs(real(xout(i))) .lt.l.0e-15)  then 
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if (abs(aimag(xout(i) )) .le.l.0e-15)  xph(i)=0.0 
if (aimag(xout(i) ) .gt.l.0e-15)  xph(i)=90.0 
if (aimag(xout(i)) .lt.-1.0e-15)  xph(i)=-90.0 

else 

xph ( i)  =  ( 180 . 0/pi) *atan2 (aimag (xout ( i) ) , real (xout ( i) ) ) 

endif 
60    continue 

C  WRITE  THE  OUTPUT  DATA  INTO  FILE:  DFT.DAT. 

write (3, 2001)  N 

write (3,*)  'OUTPUT  MAGNITUDE' 

write (3,*)  'SAMPLE  #' 

write (3 , *)  'MAGNITUDE ' 

do  57  i=0,  N-l 
nn  =  i 
write (3, 2010)  nn,  xmag(i) 

57  continue 

write (3, 2001)  N 

write (3,*)  'OUTPUT  PHASE' 

write (3,*)  'SAMPLE  #' 

write(3,*)  'PHASE  (DEG) ' 

do  58  i=0,  N-l 
nn  =  i 
write(3,2010)  nn,  xph(i) 

58  continue 

C  WRITE  THE  OUTPUT  DATA  INTO  FILE:  DFT.OUT. 

write (2, 1025) 
do  5  i=0,  N-l 
write(2,1030)  i,  xout(i) ,  xmag(i) ,  xph(i) 
5     continue 

write (*, 1019) 

999  close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0)  then 
write (*, 1116)  infile,  ierr 
endif 

C     ********   INPUT  FORMAT  ******** 

1000  format(i3,tll,al,t21,a3) 

1001  format (2f 10.0) 
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******************************** 


1009 
1010 
1011 
1012 

1014 
1015 
1016 
1017 
1019 

1020 
1025 

1030 
1115 

1116 

1117 
1118 


1119 
2000 
2001 
2010 


format (lx, 'dsorce  =  ' ,al,2x, 'Error,  illegal  value  for  dsorce. ') 

format(lx, *N  =  ',i3,2x, 'Error,  value  of  N  not  allowed. •) 

format (lx, 'option  =  ' ,a3,2x, 'Error,  illegal  value  for  option.') 
0format(/, '  THE  FIRST  ' ,il, '  VALUES  OF  xin()  ARE  LISTED  BELOW. ■ , 
1/, '  VERIFY  THAT  THE  DATA  IS  CORRECT. ' ,/) 

format (//,tl9, 'INPUT  DATA' ,//) 

format(/,t4, 'SAMPLE  #',tl5, 'REAL',t29, 'IMAGINARY',/) 

f ormat (//////, '  INPUT  DATA  SOURCEFILE:  ',al2) 

format('  VALUE  OF  N  =  * ,i3,5x, 'dsorce  =  ' ,al,5x, 'option  =  ',a3) 
0format(//,  ■  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  DFT.OUT.  ' , 
1/, '  PLOTTING  DATA  IS  STORED  IN  FILE:  DFT.DAT. ») 

format (t6 , i3 , tl3 , 2 (el2 . 6 , 2x) ) 
Of ormat (///,t33, 'OUTPUT  DATA' ,//,t4, 'SAMPLE  #' ,tl7, 'REAL1 , 
lt33, ' IMAGINARY  \t49, 'MAGNITUDE' ,t67, 'PHASE* ,/,t65, ' (DEGREES)  ') 

f ormat  (t5 ,  i3 ,  tl5 , 4  (el2 . 6 ,  4x) ) 
0format(lx, 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 
1'  MODE  ?    (Y/N)  <CR>  :  \\,) 

Of ormat (///,lx, 'ERROR  OPENING  INPUT  FILE:  ' ,al2,/,lx, 'PROGRAM' , 
1'  TERMINATED. ' ,//,lX, 'ERROR  CODE: ' ,i4, /////) 

format (al) 
Of ormat (/////, lx, 'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED' , 
1'  BY  <CR>.  ' ,/,  "  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 
2'  SAMPLE  DATA  ALREADY  STORED', /, '  IN  THE  FILE:  DFT.TST', 
3'        TYPE:  DFT.TST  <CR>',/, ■  FILENAME:  ',\,) 

format (al2) 

format (il) 

format ( i3 ) 

format (el2 . 6 , 2x, el2 . 6) 


end 


SUBROUTINE:  invdft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  xin() ,  COMPUTES  THE  INVERSE  DFT  OF  THE  ARRAY,  AND 

C  RETURNS  THE  RESULTS  IN  THE  ARRAY  xout() . 


subroutine  invdft ( N , xin , xout ) 
complex  xin(0:N-l) ,  xout(0:N-l) 

en  =  N 
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C  COMHJTE  THE  COMPLEX  CONJUGATE  OF  THE  INPUT  SEQUENCE. 

do  70  i=0,  N-l 
xin(i)  =  conjg(xin(i) ) 
70    continue 

C  COMPUTE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE  ARRAY. 

call  dft(N,xin,xout) 

C  COMPUTE  THE  COMPLEX  CONJUGATE  OF  THE  RESULTING  ARRAY. 

do  80  i=0,  N-l 
xout(i)  =  conjg(xout(i) )/en 
80    continue 

return 
end 


SUBROUTINE:  dft 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  xin() ,  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM  (DFT) 

C  OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  COMPLEX  ARRAY  xoutQ  . 


subroutine  dft(N,xin,xout) 

complex  xin(0:N-l) ,  xout(0:N-l) ,  w,  wm 

pi  =  4.0*atan(1.0) 
en  =  N 

if(N-l.eq.O)  then 
xout(0)  =  xin(0) 

else 
alpha  =  2.0*pi/en 
w  =  cmplx (cos (alpha) , -sin (alpha) ) 
do  100  k=0,  N-l 
wm  =  w**k 
xout(k)  =  xin(N-l) 
do  50  l=N-2,  0,  -1 

xout(k)  =  xout(k)*wm  +  xin(l) 
50       continue 
100     continue 
endif 

return 
end 
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SUBROUTINE:  sample 


C  RJRPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION.   THE  SAMPLES  ARE  RETURNED 

C  TO  THE  MAIN  PROGRAM  IN  THE  ARRAY  xin()  . 


subroutine  sample (xin,N) 
complex  xin(0:N-l) 

pi  =  4.0*atan(1.0) 
en  =  N 

C  DEVELOP  THE  SAMPLING  ALGORITHM  IN  THIS  SPACE.   THE  STATEMENTS 

C  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND  MAY  USE 

C  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  ,  COS(),  ABSQ... 

C  AN  EXAMPLE  IS  SHOWN  BELOW.   THE  INPUT  SEQUENCE  MUST  BE  STORED  IN 

C  THE  ARRAY  xin() .   DFT.FOR  MUST  BE  COMPILED  AGAIN  BEFORE  EXECUTION 

C  IF  THIS  SUBROUTINE  IS  USED. 

C 

C  ***  EXAMPLE  *** 

C 

C      do  3  i=0,  N-l 

C       if(i.le.4)  then 

C        xin(i)  =  cmplx(i,0.0) 

C       else 

C        xin(i)  =  cmplx(0. 0,0.0) 

C       endif 

C  3   continue 

C************************************************* 


return 
end 
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C  PRDGRM.FOR          VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  COMPUTES  THE  PERIODOGRAM  OF  A  CAUSAL 

C  SEQUENCE  USING  THE  DISCRETE  FOURIER  TRANSFORM  (DPT) 

C  TECHNIQUE.   THE  EQUATION  FOR  THE  COMPUTATION  OF  THE 

C  N-POINT  PERIODOGRAM  IS:   Sxx(k)  =  xk(k)  *conjg(xk(k)  )/N 

C  WHERE  THE  ARRAY  xk()  CONTAINS  THE  VALUES  OF  THE  DFT 

C  OF  THE  INPUT  ARRAY  xn() ,  I.E. ,  xk()  =  DFT[xn() ] .  THE 

C  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  TWO  SUBROUTINES. 

C  THE  SUBROUTINE  dft  COMPUTES  THE  DISCRETE  FOURIER 

C  TRANSFORM  OF  THE  INPUT  ARRAY,  AND  THE  SUBROUTINE 

C  sample  ALLOWS  THE  USER  TO  GENERATE  THE  INPUT  DATA  BY 

C  WRITING  THE  APPROPRIATE  EQUATIONS.  IF  THE  USER  ELECTS 

C  TO  GENERATE  THE  INPUT  DATA  BY  USING  THE  SUBROUTINE 

C  sanple,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE 

C  SUBROUTINE  USING  STANDARD  FORTRAN  77  EXECUTABLE  STATE- 

C  MENTS  mu   THE  INPUT  DATA  MUST  BE  STORED  IN  THE  ARRAY 

C  xn()  .   ALSO,  IF  EQUATIONS  ARE  WRITTEN  INTO  sairple, 

C  THE  PROGRAM  MUST  BE  COMPILED  AGAIN  BEFORE  EXECUTION.  THE 

C  RESULTS  OF  THE  PERIODIOGRAM  COMPUTATION  ARE  STORED  IN 

C  THE  ARRAY  Sxx() .   THE  USER  HAS  THE  OPTION  OF  CAUSING  THE 

C  OUTPUT  TO  BE  CONVERTED  TO  DECIBELS.  THE  USER  ALSO  HAS 

C  THE  OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH 

C  OR  TEST.   IN  BATCH  MODE  THE  AMOUNT  OF  INTERACnON  WITH 

C  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT 

C  PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FILE  'PRDGRM.IN1 . 

C  IN  THE  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME 

C  OF  THE  INPUT  FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL 

C  RUN  USING  THE  DATA  STORED  IN  THE  FILE  'PRDGRM.TST1 . 

C  IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  TEST 

C  MODE  WHEN  PROMPTED,  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRE- 

C  STORED  DATA.   ADDITIONALLY,  THE  TEST  MODE  ECHOES 

C  PORTIONS  OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW 

C  VERIFICATION  OF  ITS  ACCURACY.   THE  OUTPUT  IS  STORED  IN 

C  TABULAR  FORM  IN  THE  FILE  'PRDGRM.OUT1  AND  IN  A  FORM 

C  SUITABLE  FOR  PLOTTING  IN  THE  FILE  'DFT. DAT1. 

C 

C 

C******************************  INPUT  ******************************** 

C 

C 

C  THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  'N'  COMPLEX  DATA  POINTS  IN  THE 

C  INPUT  SEQUENCE.   THE  INPUT  SEQUENCE  IS  ASSUMED  TO  BE  DEFINED  IN 

C  THE  INTERVAL:  0  TO  N  -  1.  IF  THE  INPUT  SEQUENCE  CONSISTS  OF  'REAL1 

C  NUMBERS,  THE  IMAGINARY  PART  IS  STORED  AS  0.0.  THE  VALUE  »N'  AS  WELL 

C  AS  THE  OTHER  PARAMETERS  DESCRIBED  BELOW  SHOULD  BE  STORED  IN  THE 

C  INPUT  FILE  'PRDGRM.IN1 .   ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 

C  PROGRAM  REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE 
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C  PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 

C  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 

C 

C 

C  NAME         TYPE       RANGE  (ARRAYS)  RESTRICTIONS 

C  N  INTEGER  1  <=  N  <=  256 

C  dsorce      CHARACTER  'F'  OR  'S1 

C  yscal       CHARACTER  'STD'  OR  'LOG' 

C  xn()        COMPLEX       0,1,2...N-1  1  <=  N  <=  256 

C 

C  WHERE: 

C 

C  N  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  VALUES  IN  THE  INPUT 

C      SEQUENCE. 

C 

C  dsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 

C  INPUT  DATA  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO  BE 

C  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN  THE 

C  SUBROUTINE  sample. 

C 

C  yscal  =  A  CHARACTER  STRING  SPECIFYING  THE  DESIRED  MAGNITUDE  OPTION: 

C  'STD1  WILL  PRODUCE  STANDARD  MAGNITUDE  OUTPUT; 

C  'LOG1  WILL  PRODUCE  MAGNITUDE  EXPRESSED  IN  DECIBELS  (dB)  . 

C 

C  xn()   =  THE  ARRAY  OF  COMPLEX  INPUT  DATA.   IF  dsorce  =  "F1 

C  IS  SPECIFIED  THE  USER  MUST  SUPPLY  THE  N  INPUT 

C  VALUES  IN  THE  FILE.   IF  dsorce  =  'S'  THEN  THE  USER 

C  HAS  ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY 

C  WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE 

C  SPACE  ALLOCATED  IN  SUBROUTINE  sample.   IF  THIS  METHOD 

C  OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE 

C  RECOMPILED  BEFORE  EXECUTION. 

C 

C  NOTE:   THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

C        FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C        THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 

C  LINE#  ENTRIES  FORMAT 

C  

C    1  N, dsorce, yscal  i4,tll,al,t21,a3 

C  2...N+1  xn()  2fl0.0 

C 

C 

C  NOTES  1.   LINES  2...N+1  ARE  ONLY  REQUIRED  IF  dsorce  =  'F'. 

C  IF  dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 

C  THE  N  VALUES  OF  xn()  IN  SUBROUTINE  sample.   THE  USER 

C  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN 

C  SUBROUTINE  sample  AND  THE  VALUES  MUST  BE  STORED  IN  THE 

C  ARRAY  xn()  . 

C 
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C  2.   THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE 

C  DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 

C  COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 

C  USED  (E.G.,  3146.2  =  3.1462E+03). 

C 

C 

C*****************************  OUTPUT   ******************************* 

C 

C 

C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 

C  FORM  IN  THE  FILE  'PRDGRM.OUT' .   ADDITIONALLY,  THE  INPUT  SEQUENCE 

C   (REAL  AND  IMAGINARY)  AND  THE  OUTPUT  SEQUENCE  ARE  STORED  IN  THE  FILE 

C   •  PRDGRM.DAT1  TO  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED 

C  PROGRAM.  THE  FORMAT  OF  THE  DATA  IN  'PRDGRM.DAT'  IS:  el2.6,2x,el2.6. 

C  THE  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE  AND  THE  SECOND 

C  ENTRY,  THE  ABSCISSA  VALUE.  ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN 

C  INTO  'PRDGRM.DAT'  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 

C 

C 

C*****************************  EXAMPLE  ******************************* 

C 

C 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 

C   'PRDGRM.TST' .   THERE  ARE  EIGHT  POINTS  IN  THE  INPUT  SEQUENCE  AND 

C  THE  GOAL  IS  TO  CALCULATE  THE  PERIODOGRAM  OF  THE  DATA. 

C 

C 

C:  005       F        STD 

C  0.0       0.0 

C  1.0       0.0 

C  2.0       0.0 

C  3.0       0.0 

C  4.0       0.0 

C 

C 

C  THE  RESULTING  OUTPUT  FILE  'PRDGRM.DAT'  IS: 

C 

C  INPUT  DATA  SCURCEFILE:  PRDGRM.TST 

C  VALUE  OF  N  =   5     dsorce  =  F     MAGNITUDE  OPTION  =  STD 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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INPUT 

DATA 

xn 

0 

n 

REAL 

IMAGINARY 

0 

. 0000E+00 

. 0000E+00 

1 

. 1000E+01 

. 0000E+00 

2 

.2000E+01 

. 0000E+00 

3 

.3000E+01 

. 0000E+00 

4 

.4000E+01 

. 0000E+00 

c 
c 

C  OUTPUT  DATA 

C 

C      k     Sxx(k) 

C      0    .2000E+02 

C       1    .3618E+01 

C       2    . 1382E+01 

C       3    . 1382E+01 

C       4    .3618E+01 

C 

C 

C  FOR  ILLUSTRATIVE  PURPOSES  THE  INHJT  SEQUENCE  xn()  COUID  HAVE 

C  BEEN  GENERATED  BY  SPECIFYING  dsorce  =  »S'  AND  WRITING  THE 

C  APPROPRIATE  FORTRAN  STATEMENTS  INTO  SUBROUTINE  sample.   THE 

C  STATEMENTS  THAT  COUID  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN 

C  INTO  THE  SUBROUTINE  BUT  ARE  '  COMMENTED  OUT '  . 

C 

C 

C*************************  MAIN  PROGRAM  ****************************** 


character  infile* 12,  ylabl*14,  yscal*3,  mode*l,  dsorce*l 

character  title* 16 

complex  xn (0:255) ,  xk(0:255) 

real  Sxx(0:255),  nn,  kk 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if ( (mode.eq. 'y') .or. (mcde.eq. 'Y' ) )  then 
mode  =  'Y1 
write (*, 1118) 
read (*, 1119)  infile 

else 
infile  =  IPRDGRM.IN, 

endif 

C  UNTT=1  DEFINED  AS  INPUT  FILE.   UNTTS=2,3  DEFINED  AS  OUTPUT  FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' PRDGRM. OUT ' ) 
open (unit=3 , f ile= ' PRDGRM. DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read (1,1000)  N,  dsorce,  yscal 
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if((N.lt.l).or. (N.gt.256))  then 
write (*, 1010)  N 
stop  "The  allowed  values  for  N  are:  1  <=  N  <=  256' 

endif 

if ( (dsorce.eq. 'f ') .or. (dsorce.eq. 'F1) )  then 
dsorce  =  'F' 

elseif ( (dsorce. eq. • s ' ) . or. (dsorce. eq. ' S ' ) )  then 
dsorce  =  'S' 

else 
write ( * , 1009 )  dsorce 
stop  'The  allowed  values  for  dsorce  are:  ' 'S' '  or  ' 'F' ' . ' 

endif 

if ((yscal.eq. 'std') .or. (yscal.eq. 'STD'))  then 
title  =  '  Periodogram  ' 
yscal  =  'STD' 
ylabl  =  '  Sxx(k)    ■ 

elseif ( (yscal . eq. ' log ' ) . or . (yscal . eq. ' LOG ' ) )  then 
title  =  '  Log  Periodogram1 
yscal  =  'LOG' 
ylabl  =  'Sxx(k)  (dB) ' 

else 
write (*, 1128)  yscal 
stop  'Error,  yscal  must  be  the  string  ' 'STD' '  or  ' 'LOG' ' . ' 

endif 

C  FOR  dsorce  =  'F'  READ  THE  INPUT  SEQUENCE  FROM  THE  INPUT  FILE. 
C  FOR  dsorce  =  'S'  CALL  sample  TO  GENERATE  THE  INPUT  SEQUENCE. 
C  THE  INPUT  SEQUENCE  IS  STORED  IN  THE  ARRAY  xn() . 

if (dsorce. eq. ' F ' )  then 
read (1,1001)  (xn(i) ,i=0,N-l) 

else 
call  sample (xn,N) 

endif 

C  DEFINE  CONSTANTS 

k  =  8 

en  =  N 

pi  =  4.0*atan(1.0) 

numplts  —   3 

C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  MONITOR  (UNIT  =  *)  . 

if  (mcde.eq. 'Y' )  then 
write (*, 1016)  infile 
if (N. It. 8)  k  =  N 
write (*, 1017)  N,  dsorce,  yscal 
write (*, 1012)  k 
write (*, 1015) 
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do  4  i=0,  k-1 

write(*,1020)  i,  xn(i) 
4    continue 
endif 

C  WRITE  THE  INPUT  SEQUENCE  INTO  FILE:  PRDGRM.DAT. 

write (3, 2000)  numplts 

write (3, 2001)  N 

write (3 ,  *)  ! INHJT  SEQUENCE  (REAL)  ' 

write (3,*)  "SAMPLE  #  (n) • 

write (3,*)  'REAL  (xn) • 

do  55  i=0,  N-l 

nn  =  i 

write(3,2010)  nn,  real(xn(i)) 

55  continue 

write (3, 2001)  N 

write (3 , *)  ' INPUT  SEQUENCE  (IMAGINARY) ' 

write(3,*)  'SAMPLE  #  (n) ' 

write ( 3 , *)  ' IMAGINARY  (xn) ' 

do  56  i=0,  N-l 

nn  =  i 

write (3, 2010)  nn,  aimag(xn(i) ) 

56  continue 

C  WRITE  INPUT  DATA  INTO  OUTPUT  FILE:  PRDGRM.CUT. 

write (2, 1016)  infile 

write (2, 1017)  N,  dsorce,  yscal 

write (2 ,1014) 

write (2, 1015) 

do  59  i=0,  N-l 

write(2,1020)  i,  xn(i) 
59    continue 

C  CALL  dft  TO  COMPUTE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE 
C  INPUT  SEQUENCE. 

call  dft(N,xn,xk) 

C  THE  PERIODOGRAM  COMPUTATION  RESULTS  FROM  THE  EQUATION: 
C  Sxx(k)  =  xk(k)*conjg(xk(k))/N.  THE  SEQUENCE  Sxx(k)  IS 
C  CONVERTED  TO  DECIBELS  IF  yscal  =  'LOG' . 

do  60  k=0,  N-l 

Sxx(k)  =  xk(k)*conjg(xk(k))/en 
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if (yscal.eq. 'LOG')  then 
if(Sxx(k) .gt.l.0e-10)  then 

Sxx(k)  =  10.0*loglO(Sxx(k)) 
else 

Sxx(k)  =  -100.0 
endif 
endif 
60    continue 

C  WRITE  RESULTS  INTO  OUTRJT  FILE:  PRDGRM.DAT. 

write (3 ,2001)  N 
write (3, 2002)  title 
write(3,*)  '  k  ' 
write (3,*)  ylabl 
do  57  k=0,  N-l 
kk  =  k 

,/r^:e(3,2010)  kk,  Sxx(k) 
57    continue 

C  WRITE  RESULTS  INTO  OUTRJT  FILE:  FRDGRM.GUT. 

write (2, 1025)  ylabl 
do  5  k=0,  N-l 
write (2, 1030)  k,  Sxx(k) 
5     continue 

write (*, 1019) 

999  close (unit=l) 
close (unit=2) 
close (unit=3 ) 

if (ierr.gt.0)  then 

write (*, 1116)  infile,  ierr 
endif 

C  ********     INPUT  FORMAT  ******** 

1000  format(i3,tll,al,t21,a3) 

1001  format(2fl0.0) 

Q       ******************************** 

1009  format ( lx, 'dsorce  =  ' ,al,2x, 'Error,  illegal  value  for  dsorce. ') 

1010  format (lx, 'N  =  ',i3) 

1012  OformatC/,1  THE  FIRST  ' ,11, '  VALUES  OF  xn()  ARE  LISTED  BELOW.1, 
1/, '  VERIFY  THAT  THE  DATA  IS  CORRECT. ' ,/) 

1014  format(//,t22, 'INRJT  DATA1  ,/,t25,  'xn()  ' ,//) 

1015  format (t8, 'n',tl5, ■REALl,t28, 'IMAGINARY') 

1016  format (//////,  *  INRJT  DATA  SOURCEFILE:  ',al2) 

1017  OformatC  VALUE  OF  N  =  ' ,i3,5x, 'dsorce  =  ' ,al,5x, 'MAGNITUDE  ', 
1' OPTION  =  ',a3) 
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1019  0format(//,  '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  FRDGRM.OUT.  ■ 
1/,  '  PLOTTING  DATA  IS  STORED  IN  FILE:  PRDGRM.DAT,) 

1020  format(4x,i4,2(4x,el0.4)) 

1025  format (///,tl9,  'OUTPUT  DATA1 ,//,t7,  'k'  ,tl2,all) 
1030  format(t5,i3,4x,el0.4) 

1115  0format(lx,  'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 
l1  MODE  ?    (Y/N)  <CR>  :  \\t) 

1116  0format(///,lx, 'ERROR  OPENING  INPUT  FILE:  '  ,al2,/,lx,  ' PROGRAM' , 
1'  TERMINATED.  ',//,lx,  'ERROR  CODE:  ',i4, /////) 

1117  format (al) 

1118  0 format (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE1 , 
2'  SAMPLE  DATA  ALREADY  STORED' ,/, '  IN  THE  FILE:  PRDGRM.TST" , 
3'        TYPE:  PRDGRM.TST  <CR>',// '  FILENAME:  ' ,\,) 

1119  format (al2) 

1128  f ormat  (//////,  t2, 'The  value  of  yscal  is:  > ,a3, ' . ') 

2000  format (il) 

2001  format (i3) 

2002  format (al6) 

2003  format (a8) 

2010  format(el2.6,2x,el2.6) 

end 


SUBROUTINE:  dft 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  xn(),  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM  (DFT) 

C  OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  COMPLEX  ARRAY  xk() . 


subroutine  dft(N,xn,xk) 

complex  xn(0:N-l) ,  xk(0:N-l) ,  w,  wm 

pi  =  4.0*atan(1.0) 
en  =  N 

if(N-l.eq.O)  then 
xk(0)  =  xn(0) 

else 
alpha  =  2.0*pi/en 
w  =  cmplx ( cos ( alpha ), -sin (alpha ) ) 
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do  100  k=0,  N-l 
wm  =  w**k 
xk(k)  =  xn(N-l) 

do  50  l=N-2,  0,  -1 
xk(k)  =  xk(k)*wm  +  xn(l) 
50       continue 
100     continue 
endif 

return 
end 


C  SUBROUTINE:  sample 

C 

C 

C  PURPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 

C  OF  A  CONTINUOUS  FUNCTION.   THE  SAMPLES  ARE  RETURNED 

C  TO  THE  MAIN  PROGRAM  IN  THE  ARRAY  xn()  . 


subroutine  sample (xn,N) 
complex  xn(0:N-l) 

pi  =  4.0*atan(1.0) 
en  =  N 

C  DEVELOP  THE  SAMPLING  ALGORITHM  IN  THIS  SPACE.   THE  STATEMENTS 

C  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND  MAY  USE 

C  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  ,  COS(),  ABS()... 

C  AN  EXAMPLE  IS  SHOWN  BELOW.   THE  INFUT  DATA  MUST  BE  STORED  IN  THE 

C  ARRAY  xn()  .   IF  THIS  SUBROUTINE  IS  USED,  ,PRDGRM.FOR,  MUST  BE 

C  COMPILED  AGAIN  BEFORE  EXECUTION. 

C 

C  ***  EXAMPLE  *** 

C 

C     do  3  i=0,  N-l 

C      xn(i)  =  cmplx(i,0.0) 

C  3   continue 

C**********************************************^ 


return 
end 
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C  CONOORDT.POR  VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  PERFORMS  ANY  ONE  OF  THE  FOLLOWING  FOUR 

C  COMPUTATIONS  GIVEN  TWO  COMPLEX  ARRAYS  OF  INPUT  DATA: 

C  LINEAR  CONVOLUTION  (LOON)  ;  LINEAR  CORRELATION  (LCOR)  ; 

C  CIRCULAR  CONVOLUTION  (COON)  ;  OR  CIRCULAR  CORRELATION 

C  (ODOR) .  CONVOLUTION  IS  PERFORMED  BY  COMPUTING  THE  DFT 

C  OF  EACH  ARRAY,  MULTIPLYING  THE  DFTs  TOGETHER  AND  THEN 

C  TAKING  THE  INVERSE  DFT  OF  THE  RESULTING  ARRAY. 

C  CORRELATION  IS  PERFORMED  IN  THE  SAME  MANNER  EXCEPT 

C  THAT  THE  CONJUGATE  OF  THE  DFT  OF  ARRAY  #1  IS  MULTIPLIED 

C  BY  THE  DFT  OF  ARRAY  #2.   THE  RESULT  OF  THIS  COMPUTATION, 

C  GIVEN  THE  INPUT  SEQUENCES  xl  AND  x2,  IS  THE  CORRELATION 

C  SEQUENCE  Rxlx2.   THE  PROGRAM  CONSISTS  OF  A  MAIN 

C  PROGRAM  AND  FIVE  SUBROUTINES.  THE  SUBROUTINE  zeropad 

C  EXTENDS  THE  INPUT  ARRAY  PASSED  TO  IT  BY  ADDING  AN 

C  APPROPRIATE  NUMBER  OF  ZEROES  TO  THE  ORIGINAL  INPUT  DATA 

C  TO  CREATE  AN  ARRAY  OF  SUITABLE  LENGTH  FOR  THE  LINEAR 

C  CONVOLUTION/CORRELATTON  ALGORITHMS.   THE  SUBROUTINE 

C  dft  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM  OF  AN 

C  ARRAY.  THE  SUBROUTINE  invdft  COMPUTES  THE  INVERSE 

C  DISCRETE  FOURIER  TRANSFORM  OF  AN  ARRAY.   THE  TWO 

C  SUBROUTINES  sampll  AND  sanpl2  ALLOW  THE  USER  TO 

C  GENERATE  EITHER  OF  THE  INPUT  ARRAYS  BY  WRITING  THE 

C  APPROPRIATE  EQUATIONS.   IF  THE  USER  CHOOSES  TO 

C  GENERATE  THE  INPUT  DATA  BY  USING  EITHER  OF  THE  sanpl 

C  SUBROUTINE  (S)  ,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE 

C  SUBROUTINE (S)  USING  STANDARD  FORTRAN  77  EXECUTABLE 

C  STATEMENTS  AND  THE  VALUES  GENERATED  MUST  BE  STORED 

C  IN  THE  ARRAYS  xnl()  AND  xn2()  .   THE  USER  HAS  THE 

C  OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH 

C  OR  TEST.   IN  BATCH  MODE  THE  AMOUNT  OF  INTERACTION 

C  WITH  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE 

C  INPUT  PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FILE 

C  lCONCORDT.IN,.   IN  TEST  MODE  THE  USER  IS  PROMPTED 

C  FOR  THE  NAME  OF  THE  INPUT  FILE  AND  HAS  THE  OPTION 

C  TO  PERFORM  A  TRIAL  RUN  USING  THE  DATA  STORED  IN 

C  THE  FILE  ,CONCORDT.TST,.   IT  IS  RECOMMENDED  THAT  FIRST- 

C  TIME  USERS  SELECT  THE  TEST  MODE  AND  PERFORM  A  TRIAL 

C  RUN  WITH  THE  PRESTORED  DATA.   THE  TEST  MODE  ECHOES 

C  PORTIONS  OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW 

C  VERIFICATION  OF  ITS  ACCURACY.   THE  OUTPUT  OF  THE 

C  PROGRAM  'CONCORDT.FOR'  IS  STORED  IN  THE  ARRAY  xn3() . 

C  THE  OUTPUT  IS  STORED  IN  TABULAR  FORM  IN  THE  FILE 

C  » (^(^01.071'  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING 

C  IN  THE  FILE  ' CONCORDT . DAT • . 

C 

C 

C*****************************   INPUT   ********************************* 
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THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  TWO  SEQUENCES  OF  INPUT  DATA 
STORED  IN  THE  ARRAYS  xnl()  AND  xn2()  OF  LENGTH  'Nl1  AND  'N2», 
RESPECTIVELY.   THE  ARRAYS  ARE  ASSUMED  TO  BE  COMPLEX.   IF  THE 
ARRAYS  CONTAIN  'REAL'  VALUES  ONLY,  THEN  THE  IMAGINARY  PART  IS 
STORED  AS  0.0.  THE  INPUT  SEQUENCES  ARE  ASSUMED  TO  BE  DEFINED 
IN  THE  INTERVALS  0  TO  Nl-1  AND  0  TO  N2-1,  RESPECnVELY. 
THIS  PROGRAM  ALLOWS  THE  USER  THE  OPTION  OF  EITHER  READING  THE 
THE  INPUT  ARRAYS  FROM  A  DATA  FILE  OR  OF  GENERATING  THE  INPUT 
VALUES  FROM  AN  ITERATIVE  EQUATION  IN  THE  sampl  SUBROUTINE (S) . 
THE  PARAMETERS  DESCRIBED  BELOW  ALLOW  THE  USER  TO  SELECT  THE 
DESIRED  OPTIONS  AND  THESE  PARAMETERS  MUST  BE  STORED  IN  THE  INPUT 
FILE  'CONCORDT.IN1 .   ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
PROGRAM  REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE 
PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 


NAME 

Nl 

dsrcel 

N2 

dsrce2 

option 


xnl() 
xn2() 

WHERE: 


TYPE 

INTEGER 

CHARACTER 

INTEGER 

CHARACTER 

CHARACTER 


COMPLEX 
COMPLEX 


RANGE  (ARRAYS) 


0,1,..., Nl-1 
0,1,...,N2-1 


RESTRICTIONS 

1  <=  Nl  <=  128 
'F'   OR   "S1 

1  <=  N2  <=  128 
•F'   OR   'S1 
ONE  OF  THE  FOLLOWING: 
'LOON'  ■LCOR'  'COON'  'CCOR» 

1  <=  Nl  <=  128 
1  <=  N2  <=  128 


Nl  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  POINTS  OF  INPUT 
DATA  TO  BE  STORED  IN  THE  ARRAY  xnl() . 

dsrcel  =  A  CHARACTER  VALUE  OF  "F*  OR  *S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xnl()  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampll. 

N2  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  POINTS  OF  INPUT 
DATA  TO  BE  STORED  IN  THE  ARRAY  xn2  ( )  . 

dsrce2  =  A  CHARACTER  VALUE  OF  'F1  OR  'S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xn2()  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sanpl2. 
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option  =  A  CHARACTER  STRING  OF  FOUR  LETTERS  DENOTING  THE 

COMPUTATION  DESIRED.   'ICON'  =  LINEAR  CONVOLUTION 

'LCOR'  =  LINEAR  CORRELATION 
'COON'  =  CIRCULAR  CONVOLUTION 
'COOR*  =  CIRCULAR  CORRELATION 

xnl()  =  THE  FIRST  ARRAY  OF  COMPLEX  INPUT  DATA.  IF  dsrcel  =  'F' 
IS  SPECIFIED  THE  USER  MUST  SUPPLY  THE  Nl  INPUT 
VALUES  IN  THE  FILE.   IF  dsrcel  =  'S'  THE  USER  HAS 
ELECTED  TO  GENERATE  THE  INPUT  DATA  BY  PROVIDING 
THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE 
ALLOCATED  IN  SUBROUTINE  sampll.   IF  THIS  METHOD 
OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE 
RECOMPILED  BEFORE  EXECUTION. 

xn2()  =  THE  SECOND  ARRAY  OF  COMPLEX  INPUT  DATA.   IF  dsrce2  = 
•S1  IS  SPECIFIED  THE  USER  HAS  ELECTED  TO  PROVIDE  THE 
APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE  ALLOCATED 
IN  SUBROUTINE  sampl2.   IF  THIS  METHOD  OF  DATA 
GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION.   IF  dsrce2  =  'F'  THEN  THE  USER  MUST 
SUPPLY  THE  N2  INPUT  VALUES  IN  THE  FILE. 

NOTE:   THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 


LTNE# 

1 

2 
NOTE  1 
NOTE  2 

NOTES  1, 


ENTRIES 

Nl, dsrcel 
N2 , dsrce2 , option 
xnl() 
xn2() 


FORMAT 

i3,tll,al 

i3,tll,al,t21,a4 
2fl0.0 
2fl0.0 


IF  dsrcel  =  'F1  THEN  THE  LINES  3...N1+2  MUST  CONTAIN 
THE  VALUES  TO  BE  READ  INTO  THE  ARRAY  xnl()  .  EACH  VALUE 
IS  READ  AS  A  COMPLEX  NUMBER,  I.E.,   REAL   IMAGINARY. 
IF  dsrcel  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xnl()  IN  THE  SUBROUTINE  sampll.  THE  USER 
MUST  THEN  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sampll  TO  GENERATE  xnl() . 

IF  dsrce2  =  'F'  THEN  THE  NEXT  N2  LINES  CONTAIN  THE 
VALUES  TO  BE  READ  INTO  THE  ARRAY  xn2() .   EACH  VALUE  IS 
READ  AS  A  COMPLEX  NUMBER,  I.E.,   REAL   IMAGINARY.   IF 
dsrce2  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 
VALUES  FOR  xn2()  IN  THE  SUBROUTINE  sampl2.  THE  USER 
MUST  THEN  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sampl2  TO  GENERATE  THE  ARRAY  xn2 ( ) . 
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C        3.   THE  FORMAT  2fl0.0  USED  FOR  INPUT  DATA  PERMITS  THE 

C  DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 

C  COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 

C  USED  (E.G.,  3146.2  =  3.1462E+03). 

C 

C        4.   IF  option  =  'CCON'  OR  'CCOR'  Nl  MUST  BE  EQUAL  TO  N2. 

C 

C 

C*****************************   OUTPUT    ******************************* 

c 

c 

C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 

C  FORM  IN  THE  FILE  ,CONCORDT.OUT, .  ADDITIONALLY,  THE  INPUT  SEQUENCES 

C  AND  THE  OUTPUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FILE  •  CONCORDT.DAT1 

C  TO  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED  PROGRAM.   THE 

C  FORMAT  OF  THE  DATA  IN  •CONCORDT.DAT1  IS:   el2.6,  2x,  e!2.6.   THE 

C  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE  AND  THE  SECOND  ENTRY, 

C  THE  ABSCISSA  VALUE.   ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO 

C  ■CONCORDT.DAT'  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 

C 

C 

C*****************************  EXAMPLE  ******************************** 

C 

C 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 

C  'CONCORDT.TST'  .   THE  PROGRAM  READS  THE  FIRST  4  VALUES  INTO  xnl() 

C  (dsrcel  =  'F',  Nl  =  4)  ,  AND  READS  THE  NEXT  5  VALUES  INTO  xn2() 

C  (dsrce2  =  'F' ,  N2  =  5) .  THE  GOAL  IS  TO  CALCULATE  THE  LINEAR 

C  CONVOLUTION  OF  THE  TWO  INPUT  ARRAYS. 

C 

C 

C  004       F 

C  005       F         LOON 

C  1.0       0.0 

C  2.0       0.0 

C  3.0       0.0 

C  4.0       0.0 

C  5.0       0.0 

C  4.0       0.0 

C  3.0       0.0 

C  2.0       0.0 

C  1.0       0.0 

C 

C 

C  THE  RESULTING  OUTPUT  DATA  FILE  ' CONCORDT . OUT •  IS: 

C 

C  INPUT  DATA  SOURCEFILE:  CONCORDT.TST 

C  Nl  =   4     dsrcel  =  F 

C  N2  =   5     dsrce2  =  F 

C  option  =  LOON 
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c 
c 

C  INPUT  DATA 

C 

C  xnl() 

C  n      REAL  IMAGINARY 

C  0     .100000E+01     .OOOOOOE+00 

C  1     .200000E+01     .OOOOOOE+00 

C  2      .300000E+01     .OOOOOOE+00 

C  3      .400000E+01     .OOOOOOE+00 

C 

C  xn2() 

C  n      REAL  IMAGINARY 

C  0     .500000E+01     .OOOOOOE+00 

C  1     .400000E+01     .OOOOOOE+00 

C  2      .300000E+01     .OOOOOOE+00 

C  3     .200000E+01     .OOOOOOE+00 

C  4      .100000E+01     .OOOOOOE+00 

C 

C 

C  OUTPUT  DATA 

C 

C  xn3() 

C  n      REAL  IMAGINARY 

C  0     .500000E+01     .953674E-06 

C  1     .140000E+02    -.303457E-05 

C  2     .260000E+02    -.756009E-05 

C  3      .400000E+02    -.404610E-05 

C  4      .300000E+02      .217716E-05 

C  5     .200000E+02     .762858E-05 

C  6     .110000E+02     .892130E-05 

C  7      .400001E+01     .472045E-05 

C 

C 

C  FOR  ILLUSTRATIVE  PURPOSES  THE  INHJT  SEQUENCES  xnl()  AND  xn2() 

C  COULD  HAVE  BEEN  GENERATED  BY  SPECIFYING  dsrce#  =  "S1  AND  WRITING 

C  THE  APPROPRIATE  FORTRAN  STATEMENTS  INTO  THE  sampl#  SUBROUTINES. 

C  THE  STATEMENTS  THAT  COULD  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN 

C  INTO  THE  RESPECTIVE  SUBROUTINES  BUT  ARE  'COMMENTED  OUT1 . 

C 

C 

C****************************   MAIN  PROGRAM   *************************** 


character  infile*12,  option*4,  mode*l,  dsrcel*l,  dsrce2*l 

character  title*20 

conplex  xnl (0:255) ,  xn2(0:255),  xn3(0:255) 

complex  xkl (0:255)  ,  xk2(0:255),  xk3(0:255) 


real  nn 
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C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if  ( (mode.eq.  'y')  .or.  (mode.eq.  'Y' ) )  then 
mode  =  'Y' 
write (*, 1118) 
read (*, 1119)  infile 

else 
infile  =  lOONCORDT.IN, 

endif 

C  UNTT=1  DEFINED  AS  INPUT  FILE.  UNTTS=2,3  DEFINED  AS  OUTPUT  FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' CONCORDT . OUT ' ) 
open (unit=3 , f ile= ■ CONCORDT . DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read (1,1000)  Nl,  dsrcel 

read (1,1001)  N2,  dsrce2,  option 

if ((dsrcel. eq. 'f ') .or. (dsrcel. eq. 'F') )  then 
dsrcel  =  *F' 

elseif ( (dsrcel. eq. 's') .or. (dsrcel. eq. 'S') )  then 
dsrcel  =  'S' 

else 
write (*, 1009)  'dsrcel  =  ',  dsrcel 
stop  'The  allowed  values  for  dsrcel  are:  ' 'F' '  or  ' 'S' ' . ' 

endif 

if ( (dsrce2 . eq. ' f ' ) . or . (dsrce2 . eq. ' F ' ) )  then 
dsrce2  =  'F' 

elseif ( (dsrce2 . eq. ' s • ) . or. (dsrce2 . eq. ' S ' ) )  then 
dsrce2  =  'S' 

else 
write (*, 1009)  'dsrce2  =  ',  dsrce2 
stop  "The  allowed  values  for  dsrce2  are:  '  ,FI '  or  "S' ' .  • 

endif 

if ( (option. eq. ' ccon ' ) . or. (option. eq. ' CCON ' ) )  then 
option  =  'CCON' 
title  =  'Circular  Convolution' 

elseif ( (option. eq. ' ccor ' ) . or. (option. eq. ' CCOR' ) )  then 
option  =  'CCOR' 
title  =  'Circular  Correlation' 

elseif ( (option. eq. ' Icon ' ) . or. (option. eq. ' ICON ' ) )  then 
option  =  'ICON' 
title  =  'Linear  Convolution' 

elseif ((opt ion. eq. 'lcor') .or. (option. eq. 'LCOR') )  then 
option  =  'LCOR' 
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title  =  'Linear  Correlation1 

else 
write (*, 1011)  option 
stop  "The  allowed  values  for  option  are:  CCON, CCOR,  ICON, LCOR. ' 

endif 

if((Nl.lt.l) .or. (Nl.gt.128))  then 
write(*,1010)  'Nl  =  » ,  Nl 
stop  'The  allowed  values  for  Nl  are:   1  <=  Nl  <=  128' 

endif 

if((N2.1t.l)  .or.  (N2.gt.128))  then 
write(*,1010)  'N2  =  *,  N2 
stop  "The  allowed  values  for  N2  are:   1  <=  N2  <=  128' 

endif 

if ((opt ion. eq. 'CCON') .or. (option. eq. 'CCOR'))  then 
if(Nl.ne.N2)  then 
write (*, 1008)  option,  Nl,  N2 

stop  'For  option  =  ' 'CCOR' '  or  » 'CCON' '  Nl  must  equal  N2. ' 
endif 
N3  =  Nl 
endif 

C  DEFINE  CONSTANTS. 

k  =  8 
numplts  =  6 

C  FOR  dsrce#  =  'F'  READ  INHJT  SEOUENCE(S)  FROM  THE  DATA  FILE. 

C  FOR  dsrce#  =  'S'  CALL  sampl#  TO  GENERATE  THE  INHJT  SEOUENCE(S) . 

C  THE  INHJT  SEQUENCES  ARE  STORED  IN  THE  ARRAYS  xnl()  ,  xn2()  . 

if  (dsrcel.eq. 'F')  then 
read(l,1002)  (xnl(i) ,i=0,Nl-l) 

else 
call  sanpll(xnl,Nl) 

endif 

if (dsrce2 . eq. ' F ' )  then 
read(l,1002)  (xn2(i) ,i=0,N2-l) 

else 
call  sainpl2(xn2/N2) 

endif 


C  FOR  TEST  MODE  ECHO  INHJT  DATA  ONTO  MONITOR  (UNIT  =  *)  . 

if (mcde.eq. 'Y' )  then 
write (*, 1016)  infile 

if(  (Nl.lt. 8)  .or.  (N2.lt. 8))  k  =  min(Nl,N2) 
write(*,1017)  'Nl  =  ',  Nl,  'dsrcel  =  »,  dsrcel 
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write(*,1017)  'N2  =  ' ,  N2,  'dsrce2  =  ',  dsrce2 
write ( * , 1018 )  option 
write (*, 1012)  k 
write (*, 1013) 
do  3  i=0,  k-1 

write(*,1020)  i,  xnl(i),  xn2(i) 
3      continue 
endif 

C  WRITE  THE  INPUT  SEQUENCES  INTO  FILE:  CONCORDT.DAT. 

write (3, 2 000)  nunplts 

write (3, 2001)  Nl 

write (3,*)  'INPUT  SEQUENCE  xnl  (REAL)  ' 

write (3,*)  'SAMPLE  #  (n) ■ 

write(3,*)  ■REALxnl()' 

do  54  i=0,  Nl-1 
nn  =  i 
write(3,2010)  nn,  real(xnl(i)) 

54  continue 

write (3 ,2001)  Nl 

write (3,*)  'INPUT  SEQUENCE  xnl  (IMAGINARY)' 

write (3,*)  'SAMPLE  #  (n) ' 

write(3,*)  'IMAG  xnl() • 

do  55  i=0,  Nl-1 
nn  =  i 
write(3,2010)  nn,  aimag(xnl(i) ) 

55  continue 

write (3, 2001)  N2 

write (3 , *)  ' INPUT  SEQUENCE  xn2  (REAL) ' 

write(3,*)  'SAMPLE  #  (n) ■ 

write  (3,*)  'REALxn2()' 

do  56  i=0,  N2-1 
nn  =  i 
write(3,2010)  nn,  real(xn2(i)) 

56  continue 

write (3, 2001)  N2 

write (3,*)  'INPUT  SEQUENCE  xn2  (IMAGINARY)' 

write (3,*)  'SAMPLE  #  (n) ' 

write(3,*)  'LMAGxn2()' 

do  57  i=0,  N2-1 
nn  =  i 
write (3, 2010)  nn,  aimag(xn2(i) ) 

57  continue 

C  WRITE  INPUT  DATA  INTO  FILE:  CONCORDT . OUT . 

write (2, 1016)  infile 

write(2,1017)  'Nl  =  ',  Nl,  'dsrcel  =  ',  dsrcel 
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write(2,1017)  'N2  =  »,  N2,  'dsrce2  =  ' ,  dsrce2 
write ( 2 , 10 18 )  option 
write  (2 ,1014)  'INHJT  DATA1 
write (2, 1015)  'xnl() ■ 
do  60  i=0,  Nl-1 
write(2,1026)  i,  xnl(i) 

60  continue 

write  (2, 1015)  'xn2()' 
do  61  i=0,  N2-1 
write(2,1026)  i,  xn2(i) 

61  continue 

C  FOR  LINEAR  CONVOLUTION  OR  LINEAR  CORRELATION  BOTH  TNHJT  ARRAYS 
C  ARE  ZERO-PADDED  TO  LENGTH  N3  =  Nl  +  N2  -  1. 

if ( (option. eq. '  LOON ' ) . or . (option. eq. '  LCOR ' ) )  then 
N3  =  Nl  +  N2  -  1 
call  zeropad(xnl,Nl,N3) 
call  zeropad(xn2,N2,N3) 

endif 

C  COMPUTE  THE  DFT  OF  BOTH  INPUT  SEQUENCES. 

call  dft(N3,xnl,xkl) 
call  dft(N3,xn2,xk2) 

C  PERFORM  CONVOLUTION  COMPUTATION. 

if ( (option. eq. •  LOON ■ ) . or . (option. eq. ' OCON ' ) )  then 
do  22  i=0,  N3-1 

xk3(i)  =  xkl(i)*xk2(i) 

22  continue 

call  invdft(N3,xk3,xn3) 
endif 

C  PERFORM  CORRELATION  COMPUTATION. 

if ((option. eq. 'LCOR') .or. (option. eq. 'C00R'))  then 
do  23  i=0,  N3-1 

xkl(i)  =  conjg(xkl(i)) 
xk3(i)  =  xkl(i)*xk2(i) 

23  continue 

call  invdft(N3,xk3,xn3) 
endif 

C  WRITE  RESULTS  INTO  FILE:  CONCORDT.DAT. 

write (3, 2001)  N3 
write (3, 2003)  title 
write(3,*)  'SAMPLE  #  (n)  ' 
write(3,*)  'REALxn3()' 
do  58  i=0,  N3-1 
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nn  =  i 

write(3,2010)  nn,  real(xn3(i)) 

58  continue 

write (3, 2001)  N3 

write (3, 2 003)  title 

write (3,*)  'SAMPLE  #  (n) • 

write  (3,*)  'IMAGxn3()' 

do  59  i=0,  N3-1 
nn  =  i 
write (3, 2010)  nn,  aimag(xn3(i) ) 

59  continue 

C  WRITE  RESULTS  INTO  FILE:  CONCORDT.OUT. 

write(2,1014)  'OUTPUT  DATA' 
write (2, 1015)  "xn3()' 
do  62  i=0,  N3-1 
write (2, 1026)  i,  xn3(i) 
62    continue 

write (*, 1019) 

999  close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.O)  then 
write (*, 1116)  infile,  ierr 
endif 

q     ********  INPUT  FORMAT  ******** 

1000  format(i3,tll,al) 

1001  format(i3,tll,al,t21,a4) 

1002  format(2fl0.0) 

Q       ******************************** 

1008  0formt( '  option  =  '  ,a4, ' ,  Nl  =  ' ,  i4, ' ,  N2  =  ' ,  i4,  • ,   Error,  ' , 
1 '  Nl  is  not  equal  to  N2 . ' ) 

1009  format (lx,a9,al, '  Error,  value  not  allowed. ' ) 

1010  format ( lx , a5 , i4 , 2x , ' Error,  value  not  allowed . ' ) 

1011  format (lx, 'option  =  ' ,a4,2x, 'Error,  illegal  value  for  option.') 

1012  0format(/,t2,  'THE  FIRST'  ,i3,  '  VALUES  OF  INPUT  DATA  ARE  LISTED  ' , 
1/, '  BELOW,   VERIFY  THAT  THE  DATA  IS  CORRECT. ' ,/) 

1013  0format(t21, 'xnl() ',t53, »xn2() ',/,t4, 'n',tll, »REAL',t27, 
1 ' IMAGINARY '  ,t4 3,  'REAL',t59,  'IMAGINARY') 

1014  format(//,t20,all,/) 

1015  format(/,t21,a7,/,t6, 'n',tl3, »REAL»,t29, 'IMAGINARY') 

1016  format (///, '  INPUT  DATA  SOURCEFILE:  ',al2) 

1017  format(t2,a5,i3,5x,a9,al) 

1018  f ormat (t2 ,' option  =  ',a4) 
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1019  Of ornatC//,'  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  CONCORDT . OUT .  ' , 
1/,  '  PIDTTTNG  DATA  IS  STORED  IN  FILE:  CONCORDT.DAT.  ') 

1020  formt(t4,il,4(4x,el2.6)) 
1026  format(t4,i3,2(4x,el2.6)) 

1115  oformat(ix,  'do  you  wish  to  run  this  program  in  test'  , 

1»  MODE  ?    (Y/N)  <CR>  :  ',\,) 

1116  0format(///,lx,  'ERROR  OPENING  INPUT  FILE:  '  ,al2,/,lx,  ■PROGRAM'  , 
1'  TERMINATED.  ',///lx,  'ERROR  CODE:  \i4 ,/////) 

1117  format (al) 

1118  Of  ormat  (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 
2'  SAMPLE  DATA  ALREADY  STORED',/,'  IN  THE  FILE:  CONCORDT.  TST ' , 
3'        TYPE:  CONCORDT. TST  <CR>',/, '  FILENAME:  \\,) 

1119  format (al2) 

2000  format (il) 

2001  format (i3) 
2003  format (a20) 

2010  format(el2.6,2x,el2.6) 


end 


SUBROUTINE:  zeropad 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY  xn() 
C  OF  LENGTH  N  AND  ZERO  PADS  THE  ARRAY  TO  LENGTH  N3. 


subroutine  zeropad (xn,N,N3] 
complex  xn(0:N3-l) 

do  33  i=N,  N3-1 
xn(i)  =  cmplx(0. 0,0.0) 
33    continue 

return 
end 


SUBROUTINE:  invdft 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  xin()  AND  COMPUTES  THE  INVERSE  DFT  OF  THE  ARRAY.   THE 

C  OUTPUT  IS  STORED  LN  THE  COMPLEX  ARRAY  xout ( ) . 


subroutine  invdft ( N , xin , xout ) 
complex  xin(0:N-l) ,  xout(0:N-l) 

en  =  N 
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C  COMPUTE  THE  COMPLEX  CONJUGATE  OF  THE  INPUT  DATA. 

do  70  i=0,  N-l 
xin(i)  =  conjg(xin(i) ) 
70    continue 

C  COMPUTE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE  ARRAY. 

call  dft(N,xin,xout) 

C  COMPUTE  THE  COMPLEX  CONJUGATE  OF  THE  RESULTING  ARRAY. 

do  80  i=0,  N-l 
xout(i)  =  conjg(xout(i) )/en 
80    continue 

return 
end 

C  SUBROUTINE:  dft 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  xin()  ,  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM  (DFT) 

C  OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  COMPLEX  ARRAY  xout() . 


subroutine  dft(N,xin,xout) 

complex  xin(0:N-l) ,  xout(0:N-l) ,  w,  wm 

pi  =  4.0*atan(1.0) 
en  =  N 

if(N-l.eq.O)  then 
xout(0)  =  xin(0) 

else 
alpha  =  2.0*pi/en 
w  =  cmplx( cos (alpha) , -sin (alpha) ) 
do  100  k=0,  N-l 
wm  =  w**k 
xout(k)  =  xin(N-l) 
do  50  l=N-2,  0,  -1 

xout(k)  =  xout(k)*wnn-xin(l) 
50       continue 
100     continue 
endif 

return 
end 
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SUBROUTINE:  sampll 


C  HJRPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xnl()  .  IF  dsrcel  =  'S'  THEN  THE  MAIN  PROGRAM  WILL  CALL 

C  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR  xnl() . 

C  IF  dsrcel  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 

C  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  sampll (xnl,Nl) 
complex  xnl(0:Nl-l) 

pi  =  4.0*atan(1.0) 
enl  =  Nl 

C*  ******  **************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xnl()  IN  THIS  SPACE.  THE 

C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN() ,O0S() . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xnl()  IS  SHOWN. 

C 

C  ***  EXAMPLE  *** 

C 

C     do  6  i=0,  Nl-1 

C      xnl(i)  =  cmplx(i+l. 0,0.0) 

C  6   continue 

C*  ******  **************************************************************** 


return 
end 


SUBROUTINE:  sampl2 


C  PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xn2  ( )  .  IF  dsrce2  =  '  S '  THEN  THE  MAIN  PROGRAM  WILL  CALL 

C  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR  xn2 () . 

C  IF  dsrce2  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 

C  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 
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subroutine  sampl2(xn2,N2) 
complex  xn2(0:N2-l) 

pi  =  4.0*atan(1.0) 
en2  =  N2 

C*****  ****************************************************************** 

C  DEVEIDP  THE  SAMPLING  ALGORITHM  FOR  xn2()  IN  THIS  SPACE.  THE 

C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN() ,COS() . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xn2()  IS  SHOWN. 

C 

C  ***  EXAMPLE  *** 

C 

C     do  7  i=0,  N2-1 

C      xn2(i)  =  cmplx(5.0-i,0.0) 

C  7   continue 

C* ******  **************************************************************** 


return 
end 
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C  EFT. FOR  VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM 

C  OR  THE  INVERSE  DISCRETE  FOURIER  TRANSFORM  OF  A  SET  OF 

C  COMPLEX  INPUT  DATA  USING  A  RADIX-2,  DECIMATION  IN  TIME 

C  (DIT)  FAST  FOURIER  TRANSFORM  (FFT)  ALGORITHM.   THE 

C  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  FOUR  SUB- 

C  ROUTINES.  THE  SUBROUTINE  reversal  REARRANGES  THE 

C  INPUT  INTO  » BIT-REVERSED1  ORDER;  THE  SUBROUTINE  fft 

C  COMPUTES  THE  FAST  FOURIER  TRANSFORM;  THE  SUBROUTINE 

C  invfft  COMPUTES  THE  INVERSE  FAST  FOURIER  TRANSFORM;  AND 

C  THE  SUBROUTINE  sample  ALLOWS  THE  USER  TO  GENERATE  THE 

C  THE  INPUT  DATA  BY  WRITING  THE  APPROPRIATE  EQUATIONS.   IF 

C  THE  USER  ELECTS  TO  GENERATE  THE  INPUT  DATA  BY  USING  THE 

C  SUBROUTINE  saitple,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO 

C  THE  SUBROUTINE  USING  STANDARD  FORTRAN  77  STATEMENTS  AND 

C  THE  INPUT  DATA  GENERATED  MUST  BE  STORED  IN  THE 

C  ARRAY  xtmp() .   THE  OUTPUT  OF  'FFT. FOR'  IS  STORED  IN 

C  THE  ARRAY  x()  .   THE  USER  HAS  THE  OPTION  OF  SELECTING 

C  ONE  OF  TWO  OPERATING  MODES:   BATCH  OR  TEST. 

C  IN  BATCH  MODE  THE  AMOUNT  OF  INTERACTION  WITH  THE 

C  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT 

C  PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FILE  'FFT. IN1 . 

C  IN  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF 

C  THE  INPUT  FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL 

C  RUN  USING  THE  DATA  STORED  IN  THE  FILE  'EFT. 1ST' . 

C  IT  IS  RECOMMENDED  THAT  FTRST^TTME  USERS  SELECT  TEST 

C  MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED 

C  DATA.   THE  TEST  MODE  ECHOES  PORTIONS  OF  THE  INPUT 

C  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF  ITS 

C  ACCURACY.   THE  OUTPUT  IS  STORED  IN  TABULAR  FORM  IN 

C  THE  FILE  'FFT. OUT'  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING 

C  IN  THE  FILE  'FFT. DAT*. 

C 

C 

C******************************   INPUT   ******************************** 

C 

C 

C  THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  N  =  2**m  COMPLEX  VALUES  IN  THE 

C  INPUT  SEQUENCE.   THE  INPUT  SEQUENCE  IS  ASSUMED  TO  BE  DEFINED  IN 

C  THE  INTERVAL:  0  TO  N-l.  IF  THE  INPUT  SEQUENCE  CONSISTS  OF  'REAL' 

C  NUMBERS  THE  IMAGINARY  PART  IS  STORED  AS  0.0.  THE  VALUE  'm'  AS  WELL 

C  AS  THE  OTHER  PARAMETERS  DESCRIBED  BELOW  SHOULD  BE  STORED  IN  THE 

C  INPUT  FILE  'FFT. IN1 .   ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 

C  PROGRAM  REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE 

C  PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 

C  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 

C 

C 
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C  NAME        TYPE         RANGE  (ARRAYS)         RESTRICTIONS 

C  m  INTEGER  0  <=  m  <=  8 

C  dsorce      CHARACTER  'F1  OR  'S1 

C  option      CHARACTER  'FFT'  OR  'INV1 

C  xtmp()      COMPLEX       O,  1,  ...,  N-l         1  <=  N  <=  256 

C 

C  WHERE: 

C 

C  m  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  COMPLEX  VALUES  IN  THE 

C      INPUT  SEQUENCE.  N  =  2**m. 

C 

C  dsorce  =  A  CHARACTER  VALUE  OF  »F'  OR  'S'  DENOTING  WHETHER  THE 

C  INPUT  DATA  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO  BE 

C  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN  THE 

C         SUBROUTINE  sample. 

C 

C  option  =  A  CHARACTER  STRING  OF  THE  LETTERS  'FFT'  OR  'INV' 

C  DENOTING  WHETHER  THE  FFT  OR  THE  INVERSE  FFT  IS  TO  BE 

C  PERFORMED  ON  THE  INPUT  DATA. 

C 

C  xtmp()  =  THE  ARRAY  OF  COMPLEX  INPUT  DATA.   IF  dsorce  =  'F'  IS 

C  SELECTED  THEN  THE  USER  MUST  SUPPLY  THE  N  INPUT  VALUES 

C  IN  THE  FILE.   IF  dsorce  =  'S'  THEN  THE  USER  HAS 

C  ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY  PROVIDING  THE 

C  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE  PROVIDED  IN 

C  SUBROUTINE  sample.   IF  THIS  METHOD  OF  DATA  GENERATION  IS 

C  ELECTED  THE  PROGRAM  MUST  BE  RECOMPILED  BEFORE  EXECUTION. 

C 

C  NOTE:   THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

C        FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C        THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 

C  LINE#  ENTRIES  FORMAT 

C    1  m, dsorce, option  il,tll,al,t21,a3 

C  2...N+1  xtmp()  2fl0.0 

C 

C 

C  WHERE:  N  =  2**m 

C 

C  NOTES  1.   LINES  2...N+1  ARE  ONLY  REQUIRED  IF  dsorce  =  'F'.   IF 

C  dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 

C  N  =  2**m  VALUES  FOR  xtmp()  IN  THE  SUBROUTINE  sample.  THE 

C  USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN 

C  SUBROUTINE  sample  TO  GENERATE  THE  VALUES  FOR  xtmp()  . 

C 

C        2.   THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 

C  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN  COLUMNS 

C  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (E.G.  , 

C  3146.2  =  3.1462E+03) . 

C 
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C******************************   OUTPUT 


****************************** 


C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 

C******************************   EXAMPLE   ****************************** 


THE  INPUT  DATA  AS  WELL  AS  THE  OUTFUT  DATA  ARE  STORED  IN  TABULAR 
FORM  IN  THE  FILE  'FFT. OUT'.  ADDITIONALLY,  THE  INPUT  SEQUENCE  (REAL 
AND  IMAGINARY)  AND  THE  OUTFUT  SEQUENCE  (MAGNITUDE  AND  PHASE)  ARE 
WRITTEN  INTO  THE  FILE  'FFT.DAT'  TO  FACILITATE  PLOTTING  BY  A 
SEPARATE,  USER  SUPPLIED  PROGRAM.   THE  FORMAT  OF  THE  DATA  IN 
'FFT.DAT'  IS:   el2.6,  2x,  el2.6.   THE  FIRST  ENTRY  CORRESPONDS  TO 
THE  ORDINATE  VALUE  AND  THE  SECOND  ENTRY,  THE  ABSCISSA  VALUE. 
ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO  •FFT.DAT'  TO  ALLOW 
FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE  'FFT.TST' . 
THERE  ARE  EIGHT  DATA  POINTS  IN  THE  INPUT  SEQUENCE  AND  THE  GOAL  IS 
TO  COMPUTE  THE  FAST  FOURIER  TRANSFORM  (FFT)  OF  THE  SEQUENCE. 
NOTE:  N  =  2**m  =  8  THEREFORE  m  =  3. 


3 

0.0 

1.0 

2.0 

3.0 

4.0 

0.0 

0.0 

0.0 


F 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


FFT 


THE  RESULTING  OUTFUT  DATA  FILE    'FFT. OUT'    IS: 


INPUT  DATA  SOURCEFILE:    FFT.TST 

VALUE  OF  m  =  3  VALUE  OF  N    (2**m)    = 

dsorce  =  F  option  =  FFT 


INPUT  DATA 


8 


INPUT  DATA 
(BIT-REVERSED  ORDER) 


SAMPLE  # 
0 
1 
2 
3 
4 


REAL 

. OOOOOOE+OO 
. 100000E+01 
.200000E+01 
■300000E+01 
.400000E+01 


IMAGINARY 
. 0OO0O0E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 


REAL 

. 000000E+00 
.400000E+01 
.200000E+01 
. 000000E+00 
.  100000E+01 


IMAGINARY 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 
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c 

5 

. 000000E+00 

. 000000E+00 

. 000000E+00 

. 000000E+00 

c 

6 

. 000000E+00 

. 000000E+00 

.300000E+01 

. 000000E+00 

c 
c 

7 

. OOOCOOE+00 

. 000000E+00 

. 000000E+00 

. 000000E+00 

c 
c 
c 

c 

OUTPUT  DATA 

SAMPLE  # 

REAL 

IMAGINARY 

MAGNITUDE 

PHASE 

c 

(DEGREES) 

c 

0 

. 100000E+02 

. OOOOOOE+00 

. 100000E+02 

. 000000E+00 

c 

1 

-.541421E+01 

-.482843E+01 

.725448E+01 

-.138273E+03 

c 

2 

.200000E+01 

.200000E+01 

.282843E+01 

.450000E+02 

c 

3 

-.258579E+01 

-.828427E+00 

.271525E+01 

-.162236E+03 

c 

4 

.200000E+01 

. 000000E+00 

.200000E+01 

. 000000E+00 

c 

5 

-.258579E+01 

.828427E+00 

.271525E+01 

. 162236E+03 

c 

6 

.200000E+01 

-.200000E+01 

.282843E+01 

-.450000E+02 

c 
c 

7 

-.541421E+01 

.482843E+01 

. 725448E+01 

. 138273E+03 

c 
c 

FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCE  xtmp()  COULD  HAVE 

c 

BEEN  GENERATED  BY  SPECIFYING  dsorce  = 

•S1  AND  WRITING 

THE 

c 

APPROPRIATE  FORTRAN  STATEMENTS  INTO  SUBROUTINE  sample, 

.   THE 

c 

STATEMENTS 

THAT  COULD  BE 

USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN 

c 
c 
c 

INTO  THE  SUBROUTINE  BUT  ; 

&RE  'COMMENTED 

OUT'. 

C***************************   MAIN  PROGRAM   **************************** 


character  infile*12,  option*3,  mode*!,  dsorce*l 
complex  x(0:255) ,  xtmp(0:255) 
real  xmag(0:255) ,  xph(0:255),  nn 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if ((mode. eq. *y') .or. (mode.eq. 'Y') )  then 
mode  =  'Y' 
write (*, 1118) 
read (*, 1119)  infile 

else 
infile=  'FFI.TN' 

endif 

C  UNIT=1  DEFINED  AS  INPUT  FILE.   UNITS=2,3  DEFINED  AS  OUTPUT  FILES. 

open (unit=l , f ile=inf ile, status= ' old ' , iostat=ierr, err=999) 
open (unit=2 , f ile= ' FFT . OUT ' ) 
open (unit=3 , f ile= ' FFT . DAT • ) 
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C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS, 
read (1,1000)  m,  dsorce,  option 

if ((m.lt.O) .or. (m.gt.8) )  then 
write (*, 1010)  m 
stop  'The  allowed  values  for  m  are:  0  <=  m  <=  8. ' 

endif 

if ( (option. eq. 'FFT') .or. (option. eq. 'fft1))  then 
option  =  'FFT' 

elseif( (option. eq. TNV1) .or. (option. eq. 'inv'))  then 
option  =  'INV' 

else 
write ( * , 10 11 )  option 
stop  'The  allowed  values  for  option  are:  ' 'FFT' '  or  ' 'INV1 ' . ' 

endif 

if ( (dsorce. eq. 'F') .or. (dsorce. eq. 'f * ) )  then 
dsorce  =  'F' 

elseif ( (dsorce. eq. 'S' ) .or. (dsorce. eq. 's' ) )  then 
dsorce  =  'S' 

else 
write ( * , 1018 )  dsorce 
stop  'The  allowed  values  for  dsorce  are:  ' 'S' '  or  ' 'F' ' . ' 

endif 

C  DEFINE  CONSTANTS. 

N  =  2**m 

en  =  N 

k  =  8 

pi  =  4.0*atan(1.0) 

nunplts  =  4 

C  FOR  dsorce  =  'F»  READ  THE  INPUT  SEQUENCE  FROM  THE  INPUT  FILE. 
C  FOR  dsorce  =  'S'  CALL  sairple  TO  GENERATE  THE  INPUT  SEQUENCE. 
C  THE  INPUT  SEQUENCE  IS  STORED  IN  THE  ARRAY  xtirp()  . 

if (dsorce . eq. ' F ' )  then 
read(l,1001)  (xtmp(i) ,i=0,N-l) 

else 
call  sairple (xtmp,N) 

endif 

C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  THE  MONITOR  (UNIT  =  *)  . 

if (mcde.eq. 'Y' )  then 
write (*, 1016)  infile 
if(N.lt.8)  k=N 

write (*, 1017)  m,  N,  dsorce,  option 
write (*, 1012)  k 
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write (*, 1013) 
do  3  i=0,  k-1 

write(*,1020)  i,  xtmp(i) 
3      continue 
endif 

C  WRITE  THE  INPUT  SEQUENCE  INTO  FILE:  FFT.DAT. 

write (3 ,2000)  nunplts 

write (3, 2001)  N 

write (3,*)  'INTO!  SEQUENCE  (REAL) * 

write(3,*)  'SAMPLE  #' 

write(3,*)  'REAL  xtmp()  ' 

do  55  i=0,  N-l 
nn  =  i 
write (3, 2010)  nn,  real(xtmp(i) ) 

55  continue 

write (3, 2001)  N 

write (3,*)  'INPUT  SEQUENCE  (IMAGINARY)' 

write (3,*)  'SAMPLE  #• 

write (3,*)  'IMAG  xtmp()  ' 

do  56  i=0,  N-l 
nn  =  i 
write(3,2010)  nn,  aimag(xtmp(i) ) 

56  continue 

C  CALL  reversal  TO  REARRANGE  DATA  INTO  BIT-REVERSED  ORDER. 

call  reversal  (N,m,xtmp,x) 

C  WRITE  INPUT  DATA  INTO  FILE:  FFT.OUT. 

write (2, 1016)  infile 
write (2, 1017)  m,  N,  dsorce,  option 
write (2, 1014) 
write (2, 1015) 
do  8  i=0,  N-l 
write(2,1030)  i,  xtaonp(i) ,  x(i) 
8     continue 

C  CALL  fft  OR  invfft  TO  PERFORM  THE  SELECTED  COMPUTATION. 

if (option. eq. 'INV')  then 
call  invfft (N,m,x) 

else 
call  fft(N,m,x) 

endif 
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C  TRANSFORM  OUTPUT  DATA  INTO  EXPONENTIAL  FORM:  xmag*EXP(j*xph) 
C  PHASE  xph()  IS  EXPRESSED  IN  DEGREES. 

do  60  i=0,  N-l 
xmag(i)  =  cabs(x(i)) 
if(abs(real(x(i))) .lt.l.0e-15)  then 

if  (abs(aiinag(x(i) ) )  .le.l.0e-15)  xph(i)=0.0 

if  (aimag(x(i))  .gt.l.0e-15)  xph(i)=90.0 

if(ainag(x(i)) .lt.-1.0e-15)  xph(i)=-90.0 
else 

xph(i)=(180.0/pi)*atan2(aimag(x(i) )  ,real(x(i) )) 
endif 
60    continue 

C  WRITE  THE  OUTPUT  DATA  INTO  FILE:  FFT.DAT. 

write (3, 2001)  N 

write(3,*)  'OUTPUT  MAGNITUDE' 

write(3,*)  'SAMPLE  #' 

write (3,*)  'MAGNITUDE' 

do  57  i=0,  N-l 
nn  =  i 
write (3, 2010)  nn,  xmag(i) 

57  continue 

write(3,2001)  N 

write(3,*)  'OUTPUT  PHASE' 

write(3,*)  'SAMPLE  #' 

write(3,*)  'PHASE  (DEG) ' 

do  58  i=0,  N-l 
nn  =  i 
write(3,2010)  nn,  xph(i) 

58  continue 

C  WRITE  THE  OUTPUT  DATA  INTO  FILE:  FFT.OUT. 

write (2 ,1025) 
do  5  i=0,  N-l 
write(2,1030)  i,  x(i) ,  xmag(i) ,  xph(i) 
5     continue 

write (*, 1019) 

999  close (unit=l) 
close (unit=2 ) 
close (unit=3) 

if (ierr.gt.0)  then 
write (*, 1116)  infile,  ierr 
endif 
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C  ********  INPUT  FORMAT  ******** 

1000  format(il,tll,al,t21,a3) 

1001  format (2f 10.0) 

C  ******************************** 

1010  format  (lx, 'm  =  ' , il,2x, 'Error,  value  of  m  not  allowed. * ) 

1011  format (lx, 'option  =  ' ,a3,2x, 'Error,  illegal  value  for  option.') 

1012  0format(/,'  THE  FIRST  ',il,'  VAIDES  OF  xtmp()  ARE  LISTED  ', 
l'BELOW. » ,/, '  VERIFY  THAT  THE  DATA  WAS  STORED  CORRECTLY. ') 

1013  format (/ , t4 ,  ' SAMPLE  # ' , tl5 ,  'REAL' ,  t29 ,  '  IMAGINARY ' ,/) 

1014  Of ormat(///,t25, 'INPUT  DATA' ,t57, 'INPUT  DATA',/, 
lt52, ' (BIT-REVERSED  ORDER) ' ,/) 

1015  Of ormat(t4, 'SAMPLE  #» ,tl7, 'REAL' ,t33, ' IMAGINARY ' ,t49, 'REAL' , 
lt65, 'IMAGINARY1) 

1016  format (///,»  INPUT  DATA  SOURCEFILE:  ',al2) 

1017  OformatC  VATLL  OF  m  =  '  ,il,5x, 'VALUE  OF  N  (2**m)  =  ',i3,/,lx, 
l'dsorce  =  ' ,al,5x, 'option  =  ',a3) 

1018  format (lx, 'dsorce  =  ' ,al,2x, 'Error,  illegal  value  for  dsorce. ') 

1019  0format(//, '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  FFT.OUT. », 
1/, '  PLOTTING  DATA  IS  STORED  IN  FILE:  FFT.DAT. ') 

1020  format(t7,il,tl3,2(el2.6,2x)) 

1025  0format(///,t33,  'OUTPUT  DATA' ,//,t4, 'SAMPLE  #' ,tl7, 'REAL' , 

lt33, ' IMAGINARY ',t49, ' MAGNITUDE ', t67 , 'PHASE' ,/,t65, '(DEGREES) ') 
1030  format(t5,i3,tl5,4(el2.6,4x)) 

1115  0format(lx, 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 
1'  MODE  ?    (Y/N)  <CR>  :  ',\,) 

1116  0format(///,lx,  'ERROR  OPENING  INPUT  FILE:  '  ,al2,/,lx,  'PROGRAM' , 
1'  TERMINATED. ',//,lx, 'ERROR  CODE: ',i4, /////) 

1117  format (al) 

1118  Of  ormat  (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>. ' ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE1 , 
2'  SAMPLE  DATA  ALREADY  STORED',/, '  IN  THE  FILE:  FFT.TST', 

3'        TYPE:  FFT.TST  <CR>',/, '  FILENAME:  »,\,) 

1119  format (al2) 

2000  format (il) 

2001  format (i3) 

2010  format(el2.6,2x,el2.6) 

end 


SUBROUTINE:   invfft 


C  RJRPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 

C  x() ,  COMPUTES  THE  INVERSE  FAST  FOURIER  TRANSFORM  (IFFT) 

C  OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  ORIGINAL  ARRAY  x()  . 
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subroutine  invfft(N,m,x) 
complex  x(0:N-l) 

en  =  N 

C  CALCULATE  THE  COMPLEX  CONJUGATE  OF  THE  INPUT  SEQUENCE. 

do  70  i=0,  N-l 
x(i)  =  conjg(x(i)) 
70    continue 

C  CALCULATE  THE  FAST  FOURIER  TRANSFORM  OF  THE  ARRAY. 

call  fft(N,m,x) 

C  CALCULATE  THE  COMPLEX  CONJUGATE  OF  THE  RESULTING  ARRAY. 

do  80  i=0,  N-l 
x(i)  =  conjg(x(i)  )/en 
80    continue 

return 
end 

C  SUBROUTINE:  reversal 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  CONTAINING  THE  VALUES  xtmp()  THAT  WERE  READ  FROM 

C  THE  INPUT  FILE.   THE  OUTPUT  OF  THIS  SUBROUTINE  IS 

C  THE  COMPLEX  ARRAY  x()  THAT  CONTAINS  THE  INPUT 

C  VALUES  IN  'BIT-REVERSED1  ORDER. 


subroutine  reversal (N , m , xtmp , x) 
complex  xtmp(0:N-l) ,  x(0:N-l) 

do  10  k=0,  N-l 
newaddr  =  0 
maddr  =  k 
do  20  i=0,  m-1 

lrmndr  =  mod (maddr, 2) 
newaddr  =  newaddr  +  lrmndr*2**(m-l-i) 
maddr  =  maddr/ 2 
20     continue 

x (newaddr)  =  xtmp(k) 
10    continue 

return 
end 
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SUBROUTINE:   fft 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY  x()  , 
C  COMPUTES  THE  FAST  FOURIER  TRANSFORM  (FFT)  OF  THE 

C  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  ORIGINAL  ARRAY  x() . 


subroutine  fft(N,m,x) 
complex  x(0:N-l),  W,  tup 

pi  =  4.0*atan(1.0) 
en  =  N 

do  50  L=l,  m 
ispace  =  2**L 

s  =  N/ ispace 
iwidth  =  ispace/ 2 
do  40  j=o,  iwidth-1 
r  =  s*j 

alpha  =  2.0*pi*r/en 
W  =  cmplx (cos (alpha) , -sin (alpha) ) 
do  30  itop=j,  N-2,  ispace 
ibot  =  itop  +  iwidth 
tmp  =  x(ibot)*W 
x(ibot)  =  x(itop)  -  trap 
x(itop)  =  x(itop)  +  trap 
30       continue 
40     continue 
50    continue 

return 
end 


SUBROUTINE:   sample 


C  PURPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  2**m 
C  SAMPLES  OF  A  CONTINUOUS  FUNCTION.   THE  SAMPLES  ARE 

C  RETURNED  TO  THE  MAIN  PROGRAM  IN  THE  ARRAY  xtrap() . 


subroutine  sample  (xtmp,N) 
complex  xtmp(0:N-l) 

pi  =  4.0*atan(1.0) 
en  =  N 
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c*  ******  **************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  IN  THIS  SPACE.   THE  STATEMENTS 

C  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND  MAY  USE 

C  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SLN()  ,  COS()  ,  ABS()  . . . 

C  AN  EXAMPLE  IS  SHOWN  BELOW.   THE  INPUT  DATA  MUST  EE  STORED  IN 

C  THE  ARRAY  xtmp()  .   FFT.FOR  MUST  BE  COMPILED  AGAIN  BEFORE 

C  EXECUTION  IF  THIS  SUBROUTINE  IS  USED. 

C 

C  ***  EXAMPLE  *** 

C 

C      do  2  i=0,  N-l 

C       if(i.le.4)  then 

C        xtmp(i)  =  anplx(i,0.0) 

C       else 

C        xtmp(i)  =  cmplx(0. 0,0.0) 

C       endif 

C  2   continue 

C*  ****** **************************************************************** 


return 
end 
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C  CONCORFT.FOR  VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  PERFORMS  ANY  ONE  OF  THE  FOIIDWING  FOUR 

C  COMPUTATIONS  GIVEN  TWO  COMPLEX  ARRAYS  OF  INPUT  DATA: 

C  LINEAR  CONVOLUTION  (LOON) ;  LINEAR  CORRELATION  (LCOR)  ; 

C  CIRCULAR  CONVOLUTION  (COON) ;  OR  CIRCULAR  CORRELATION 

C  (CCOR)  BY  USING  THE  FAST  FOURIER  TRANSFORM  (FFT) 

C  ALGORITHM.  FOR  THE  CONVOLUTION  OPERATIONS  THE  PROCEDURE 

C  INVOLVES  COMPUTING  THE  FFTs  OF  THE  ARRAYS,  MULTIPLYING 

C  THE  FFTs  TOGETHER  AND  COMPUTING  THE  INVERSE  FFT 

C  OF  THE  RESULT.   FOR  THE  CORRELATION  OPERATIONS  THE 

C  PROCEDURE  IS  THE  SAME  EXCEPT  THAT  THE  CONJUGATE  OF 

C  THE  FFT  OF  THE  FIRST  INPUT  ARRAY  IS  MULTIPLIED  BY  THE 

C  FFT  OF  THE  SECOND  ARRAY.  THE  PROGRAM  CONSISTS  OF  A  MAIN 

C  PROGRAM  AND  SIX  SUBROUTINES.  THE  SUBROUTINE  zeropad 

C  EXTENDS  THE  INPUT  ARRAY  PASSED  TO  IT  BY  ADDING  AN 

C  APPROPRIATE  NUMBER  OF  ZEROES  TO  THE  ORIGINAL  INPUT  DATA 

C  TO  CREATE  AN  ARRAY  OF  LENGTH  2**m,  m  =  INTEGER.   THE 

C  SUBROUTINE  f ft  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM 

C  OF  AN  ARRAY  USING  THE  RADIX-2  FFT  ALGORITHM.   THE 

C  SUBROUTINE  invf ft  COMPUTES  THE  INVERSE  DISCRETE 

C  FOURIER  TRANSFORM  OF  AN  ARRAY  USING  THE  ALTERNATE 

C  INVERSION  FORMULA.  THE  SUBROUTINE  reversal  REARRANGES 

C  THE  INPUT  DATA  INTO  BIT-REVERSED  ORDER  BEFORE  f ft  IS 

C  CALLED.  THE  SUBROUTINES  sanpll  AND  sampl2  ALLOW  THE 

C  USER  TO  GENERATE  EITHER  OF  THE  INPUT  ARRAYS  BY  WRITING 

C  THE  APPROPRIATE  EQUATIONS.   IF  THE  USER  CHOOSES  TO 

C  GENERATE  THE  INPUT  DATA  BY  USING  EITHER  OF  THE  sairpl 

C  SUBROUTTNE(S)  ,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO 

C  THE  SUBROUTINE  (S)  USING  STANDARD  FORTRAN  77  EXECUTABLE 

C  STATEMENTS  AND  THE  VALUES  GENERATED  MUST  BE  STORED 

C  IN  THE  ARRAYS  xnl()  AND  xn2()  .   THE  USER  HAS  THE 

C  OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH 

C  OR  TEST.   IN  BATCH  MODE  THE  AMOUNT  OF  INTERACTION 

C  WITH  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE 

C  INPUT  PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FILE 

C  'CONCORFT.IN1.   IN  TEST  MODE  THE  USER  IS  PROMPTED 

C  FOR  THE  NAME  OF  THE  INPUT  FILE  AND  HAS  THE  OPTION 

C  TO  PERFORM  A  TRIAL  RUN  USING  THE  DATA  STORED  IN  THE 

C  FILE  ■CONCORFT.TST'.   IT  IS  RECOMMENDED  THAT  FIRST-TIME 

C  USERS  SELECT  TEST  MODE  AND  PERFORM  A  TRIAL  RUN 

C  WITH  THE  PRESTORED  DATA.   THE  TEST  MODE  ECHOES 

C  PORTIONS  OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW 

C  VERIFICATION  OF  ITS  ACCURACY.   THE  OUTPUT  OF  THE 

C  PROGRAM  ,CONCORFT.FOR,  IS  STORED  IN  THE  ARRAY  xn3() 

C  AND  IS  WRITTEN  LN  TABULAR  FORM  INTO  THE  FILE 

C  •CONCORFT.OUT'  AND  LN  A  FORM  SUITABLE  FOR  PLOTTING 

C  LN  THE  FILE  '  CONCORFT .  DAT '  . 

C 

C 
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C*****************************   INPUT   ********************************* 


C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  TWO  SEQUENCES  OF  INPUT  DATA 

STORED  IN  THE  ARRAYS  xnl()  AND  xn2()  OF  LENGTH  'Nl'  AND  'N2', 

RESPECTIVELY.   THE  SEQUENCES  ARE  ASSUMED  TO  BE  COMPLEX.   IF  THE 

SEQUENCES  CONTAIN  REAL  VALUES  ONLY,  THEN  THE  IMAGINARY  PART  IS 

STORED  AS  0.0  .   THIS  PROGRAM  USES  A  RADIX-2  FFT  ALGORITHM. 

FOR  LINEAR  CONVOLUTION  OR  LINEAR  CORRELATION  (option  =  LCON,LCOR) 

THE  INPUT  ARRAYS  DO  NOT  HAVE  TO  BE  OF  LENGTH  2**m,  m  =  INTEGER. 

THE  SUBROUTINE  zeropad  ADJUSTS  THE  ARRAY  LENGTHS  BEFORE 

THE  FFT  COMPUTATIONS  ARE  MADE.   FOR  CIRCULAR  CONVOLUTION  OR 

CIRCULAR  CORRELATION  (option  =  CCON,CCOR)  THE  ARRAYS  MUST  BE  OF 

LENGTH  2**m,  m  =  INTEGER  BECAUSE  EXTENDING  THE  SEQUENCES  BY 

ZERO  PADDING  WILL  PRODUCE  ERRONEOUS  RESULTS.  THE  INPUT  SEQUENCES 

ARE  ASSUMED  TO  BE  DEFINED  IN  THE  INTERVALS  0  TO  Nl-1,  AND  0 

TO  N2-1,  RESPECTIVELY.   THIS  PROGRAM  ALLOWS  THE  USER  THE 

OPTION  OF  EITHER  READING  THE  INPUT  ARRAYS  FROM  THE  DATA 

FILE  OR  GENERATING  THE  INPUT  VALUES  FROM  AN  ITERATIVE  EQUATION 

IN  THE  sampl  SUBROUTINE  (S)  .   THE  PARAMETERS  DESCRIBED 

BELOW  ALLOW  THE  USER  TO  SELECT  THE  DESIRED  OPTIONS  AND  THESE 

PARAMETERS  SHOULD  BE  STORED  IN  THE  INPUT  FILE  ' CONCORFT .  IN ' . 

ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM  REQUIRE  FORMATTED 

INPUT.   PARTICULAR  ATTENTION  SHOULD  BE  PAID  TO  THESE  FORMATS, 

ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO  DISTINGUISH  BETWEEN 

'REAL1  AND  INTEGER  DATA. 


NAME 

Nl 

dsrcel 

N2 

dsrce2 

option 


xnl() 
xn2() 

WHERE: 


TYPE 

INTEGER 

CHARACTER 

INTEGER 

CHARACTER 

CHARACTER 


COMPLEX 
COMPLEX 


RANGE  (ARRAYS) 


RESTRICTIONS 

1  <=  Nl  <=  128 
■F'   OR   'S' 

1  <=  N2  <=  128 
'Ff   OR   'S' 
ONE  OF  THE  FOLLOWING: 
'LOON'  'LCOR'  "COON'  'CCOR' 


O,  1, 
O,  1, 


Nl-1 
N2-1 


1  <=  Nl  <=  128 
1  <=  N2  <=  128 


Nl  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  COMPLEX  VALUES 
TO  BE  STORED  IN  THE  ARRAY  xnl()  .   FOR  option  =  CCON 
OR  CCOR,  Nl  MUST  BE  AN  INTEGER  POWER  OF  2,  AND  Nl  AND  N2 
MUST  BE  EQUAL. 

dsrcel  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xnl()  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampll. 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


N2  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  COMPLEX  VALUES 
TO  BE  STORED  IN  THE  ARRAY  xn2() .   FOR  option  =  COON 
OR  CCOR,  N2  MUST  BE  AN  INTEGER  POWER  OF  2,  AND  Nl  AND  N2 
MUST  BE  EQUAL. 

dsrce2  =  A  CHARACTER  VALUE  OF  'F'  OR  'S*  DENOTING  WHETHER  THE 
INPUT  ARRAY  xn2()  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampl2. 


option  =  A  CHARACTER  STRING  OF  FOUR  LETTERS  DENOTING  THE 

COMPUTATION  DESIRED:   ,LCONl  =  LINEAR  CONVOLUTION 

'LCOR'  =  LINEAR  CORRELATION 
'COON'  =  CIRCULAR  CONVOLUTION 
•CCOR1  =  CIRCULAR  CORRELATION. 

xnl()  =  THE  FIRST  ARRAY  OF  COMPLEX  INPUT  DATA.  IF  dsrcel  =  »F' 
IS  SPECIFIED  THE  USER  MUST  SUPPLY  THE  Nl  INPUT  VALUES 
IN  THE  FILE.  IF  dsrcel  =  'S'  THE  USER  HAS  ELECTED  TO 
GENERATE  THE  INPUT  DATA  BY  PROVIDING  THE  APPROPRIATE 
FORTRAN  STATEMENTS  IN  THE  SPACE  ALLOCATED  IN  SUBROUTINE 
saitpll.   IF  THIS  METHOD  OF  DATA  GENERATION  IS  ELECTED 
THE  PROGRAM  MUST  BE  RECOMPILED  BEFORE  EXECUTION. 

xn2()  =  THE  SECOND  ARRAY  OF  COMPLEX  INPUT  DATA.   IF  dsrce2  = 
'S'  IS  SPECIFIED  THE  USER  HAS  ELECTED  TO  PROVIDE  THE 
APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE  ALLOCATED 
IN  SUBROUTINE  sairpl2.   IF  THIS  METHOD  OF  DATA 
GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION.   IF  dsrce2  =  'F'  THEN  THE  USER  MUST 
SUPPLY  THE  N2  INPUT  VALUES  IN  THE  FILE. 

NOTE:   THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 


LLNE# 

1 

2 
NOTE  : 
NOTE  : 


ENTRIES 

Nl, dsrcel 

N2 , dsrce2 , option 

xnl() 

xn2() 


FORMAT 

i3,tll,al 

I3,tll,al,t21,a4 
2fl0.0 
2fl0.0 


NOTES  1. 


IF  dsrcel  =  'F'  THEN  THE  LINES  3.  .  .Nl+2  MUST  CONTAIN 
THE  VALUES  TO  BE  READ  INTO  THE  ARRAY  xnl()  .  EACH  VALUE 
IS  READ  AS  A  COMPLEX  NUMBER,  I.E.,   REAL   IMAGINARY. 
IF  dsrcel  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xnl()  IN  THE  SUBROUTINE  sampll.  THE 
USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sampll  TO  GENERATE  xnl() . 
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C        2.   IF  dsrce2  =  »F'  THEN  THE  NEXT  N2  LINES  CONTAIN  THE 

C  VALUES  TO  BE  READ  INTO  THE  ARRAY  xn2 ( ) .   EACH  VALUE 

C  IS  READ  AS  A  COMPLEX  NUMBER,  I.E.,   REAL   IMAGINARY. 

C  IF  dsrce2  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 

C  THE  VALUES  FOR  xn2()  IN  THE  SUBROUTINE  sairpl2.  THE 

C  USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 

C  IN  SUBROUTINE  sairpl2  TO  GENERATE  THE  ARRAY  xn2  ( )  . 

C 

C        3.   THE  FORMAT  2fl0.0  USED  FOR  INPUT  DATA  PERMITS  THE 

C  DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 

C  COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 

C  USED  (E.G.,  3146.2  =  3.1462E+03). 

C 

C        4.   IF  option  =  'COON'  OR  'CCOR'  Nl  MUST  BE  EQUAL  TO  N2. 

C 

C 

C****************************   OUTPUT    ******************************** 

C 

c 

C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 

C  FORM  IN  THE  FILE  ' CONCORFT . OUT '  .   ADDITIONALLY,  THE  INPUT 

C  SEQUENCES  AND  THE  OUTPUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FILE 

C  'CONCORFT. DAT'  TO  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER 

C  SUPPLIED  PROGRAM.   THE  FORMAT  OF  THE  DATA  IN  ■CONCORFT. DAT'  IS: 

C  el2.6,  2x,  el2.6.   THE  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE 

C  VALUE  AND  THE  SECOND  ENTRY,  THE  ABSCISSA  VALUE.  ADDITIONAL  HEADER 

C  INFORMATION  IS  WRITTEN  INTO  'CONCORFT.DAT1  TO  ALLOW  FOR  CONTROL 

C  AND  LABELING  OF  EACH  PLOT. 

C 

C 

C****************************   EXAMPLE   ******************************** 

C 

C 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 

C  * CONCORFT. TST' .   THE  PROGRAM  READS  THE  FIRST  4  VALUES  INTO  xnl() 

C  (dsrcel  =  'F\  Nl  =  4)  ,  AND  READS  THE  NEXT  5  VALUES  INTO  xn2() 

C  (dsrce2  =  'F» ,  N2  =  5) .   THE  GOAL  IS  TO  CALCULATE  THE  LINEAR 

C  CONVOLUTION  OF  THE  TWO  INPUT  ARRAYS. 

C 

C 

C  004       F 

C  005       F      LOON 

C  1.0       0.0 

C  1.0       0.0 

C  1.0       0.0 

C  1.0       0.0 

C  2.0       0.0 
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C  2.0       0.0 

C  2.0       0.0 

C  2.0       0.0 

C  2.0       0.0 

C 

C 

C  THE  RESULTING  OUTPUT  DATA  FILE  •  OONCORFT . OUT '  IS: 

C 

C  INPUT  DATA  SOURCEFIIE:  OONCORFT. TST 

C  Nl  =   4     dsrcel  =  F         N2  =   5     dsrce2  =  F 

C  option  =  LOON 

C 

C 

C  INPUT  DATA 

C 

C  xnl() 

C     n      REAL  IMAGINARY 

C     0     .100000E+01     .000000E+00 

C     1     .100000E+01     .000000E+00 

C     2      .100000E+01     .000000E+00 

C     3      .100000E+01     .000000E+00 

C 

C  xn2() 

C     n      REAL  IMAGINARY 

C     0     .200000E+01     .000000E+00 

C     1     .200000E+01     .000000E+00 

C     2     .200000E+01     .000000E+00 

C     3     .200000E+01     .0OO0OOE+0O 

C     4      .200000E+01     .000000E+00 

C 

C 

C  OUTPUT  DATA 

C 

C  xn3() 

C     n      REAL  IMAGINARY 

C     0     .200000E+01     . 89407 OE-07 

C     1     .400000E+01    -.421468E-07 

C     2      .600000E+01    -.754979E-07 

C     3      .800000E+01    -.168587E-06 

C     4      .800000E+01    -.89407 OE-07 

C     5     .600000E+01     .421468E-07 

C     6     .400000E+01     .754979E-07 

C     7      .200000E+01     .168587E-06 

C 

C 

C  NOTE:   FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCES  COULD  HAVE 

C        BEEN  GENERATED  BY  SPECIFYING  dsrce#  =  'S'  AND  WRITING  THE 

C        APPROPRIATE  FORTRAN  STATEMENTS  INTO  THE  sairpl#  SUBROUTINES. 

C         THE  STATEMENTS  THAT  COULD  BE  USED  TO  ACCOMPLISH  THIS  ARE 

C         WRITTEN  INTO  THE  RESPECTIVE  SUBROUTINES  BUT  ARE  'COMMENTED 

C         OUT'. 

C 
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c 

C**************************   MAIN  PROGRAM   ***************************** 


character  infile*12,  option*4,  mode*l,  dsrcel* 1,  dsrce2*l 

character  title*20 

complex  xnl (0:255) ,  xn2(0:255),  xn3(0:255) 

complex  xtmpl (0:255) ,  xtmp2 (0:255) ,  xtmp3(0:255) 

real  nn 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if  ( (mode.eq.  'y')  .or.  (mode.eq.  *Y') )  then 
mode  =  'Y' 
write (*, 1118) 
read (*, 1119)  infile 

else 
infile  =  ,CONCORFT.IN, 

endif 

C  UNIT=1  DEFINED  AS  INPUT  FILE.   UNITS=2,3  DEFINED  AS  OUTPUT  FILES. 

open  (unit=l ,  file=  infile ,  status= '  old ' ,  iostat=ierr ,  err=999 ) 
open (unit=2 , f ile= ' CONCORFT . OUT ■ ) 
open (unit=3 , f ile= ■ CONCORFT . DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read (1,1000)  Nl,  dsrcel 

read (1,1001)  N2,  dsrce2,  option 

if ((dsrcel. eq. 'f ') .or. (dsrcel. eq. 'F'))  then 
dsrcel  =  'F' 

elseif ( (dsrcel. eq. 's') .or. (dsrcel. eq. 'S') )  then 
dsrcel  =  'S1 

else 
write (*, 1009)  'dsrcel  =  ' ,  dsrcel 
stop  'The  allowed  values  for  dsrcel  are:  '  'F' '  or  ' 'S' ' . ■ 

endif 

if ((dsrce2.eq. 'f ') .or. (dsrce2.eq. 'F'))  then 
dsrce2  =  'F' 

elseif ( (dsrce2 . eq. ■ s ' ) .or. (dsrce2 . eq. ' S ' ) )  then 
dsrce2  =  'S' 

else 
write (*, 1009)  'dsrce2  =  • ,  dsrce2 
stop  ' The  allowed  values  for  dsrce2  are :  • ' F ' '  or  ■ ■ S ' ■ . ' 

endif 
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if ( (option. eq. 'ccon') .or. (option. eq. 'CCON'))  then 
option  =  'CCON' 

title  =  'Circular  Convolution' 
N3  =  Nl 
iend  =  N3 

elseif ( (option. eq. 'ccor' ) .or. (option. eq. 'CCOR' ) )  then 
option  =  'CCOR' 

title  =  'Circular  Correlation' 
N3  =  Nl 
iend  =  N3 

elseif ( (option. eq. 'Icon' ) .or. (option. eq. 'LOON' ) )  then 
option  =  'LOON' 
title  =  'Linear  Convolution' 

elseif ( (option. eq. 'lcor' ) .or. (option. eq. 'LOOR' ) )  then 
option  =  'LOOR' 
title  =  'Linear  Correlation' 

else 
write (*, 1011)  option 
stop  "The  allowed  values  for  option  are:  CCON, CCOR, LOON, LCOR. ' 

endif 

if((Nl.lt.l)  .or.  (Nl.gt.128))  then 
write(*,1010)  'Nl  =  ',  Nl 
stop  'The  allowed  values  for  Nl  are:  1  <=  Nl  <=  128. ' 

elseif ((N2.lt. 1) .or. (N2.gt.512))  then 
write(*,1010)  'N2  =  ',  N2 

stop  'The  allowed  values  for  N2  are:  1  <=  N2  <=  128. ' 
elseif ( (option. eq. ' CCON ' ) . or. (option. eq. *  CCOR' ) )  then 
if(Nl.ne.N2)  then 
write (*, 1008)  option,  Nl,  N2 

stop  'For  option  =  ' 'CCOR' '  or  ' 'COON' '  Nl  must  equal  N2. ' 
endif 
do  14  m=0,  10 

if(2**m-N3)  14,13,15 
15       write (*, 1007)  option,  Nl,  N2 

stop  'Error,  Nl  and  N2  are  not  integer  powers  of  2. ' 
14     continue 
13    endif 

C  DEFINE  CONSTANTS. 

k  =  8 
numplts  =  6 

C  FOR  dsrce#  =  'F'  READ  INHJT  SEQUENCE (S)  FROM  THE  DATA  FILE. 

C  FOR  dsrce#  =  'S'  CALL  sample#  TO  GENERATE  THE  INHJT  SEQUENCE(S) . 

C  THE  INHJT  SEQUENCES  ARE  STORED  IN  THE  ARRAYS  xnl() ,  xn2() . 
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if (dsrcel . eq. ' F ' )  then 
read (1,1002)  (xnl(i) ,i=0,Nl-l) 

else 
call  sampll(xnl,Nl) 

endif 

if (dsrce2.eq. 'F')  then 
read(l,1002)  (xn2(i) ,i=0,N2-l) 

else 
call  sampl2(xn2,N2) 

endif 


C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  MONITOR  (UNIT  =  *) 

if  (mcde.eq. 'Y')  then 
write (*, 1016)  infile 

if ((Nl.lt. 8) .or. (N2.lt. 8))  k=min(Nl,N2) 
write (*, 1017)  Nl,  dsrcel,  N2,  dsrce2 
write ( * , 1018 )  option 
write(*,1012)  k 
write (*, 1013) 
do  3  i=0,  k-1 

write(*,1020)  i,  xnl(i),  xn2(i) 
3      continue 

endif 

C     WRITE  THE  INRJT  SEQUENCES  INTO  FILE:    CONCORFT.DAT. 

write (3, 2 000)   nunplts 

write (3, 2001)    Nl 

write (3,*)  ' INPUT  SEQUENCE  xnl  (REAL)' 

write(3,*)  'SAMPLE  #  (n) ' 

write(3,*)  'REAL  xnl () ' 

do  54  i=0,  Nl-1 
nn  =  i 
write(3,2010)  nn,  real (xnl (i)) 

54  continue 

write (3, 2001)  Nl 

write (3,*)  'INPUT  SEQUENCE  xnl  (IMAGINARY) ' 

write (3,*)  'SAMPLE  #  (n) ' 

write(3,*)  'IMAG  xnl()  ' 

do  55  i=0,  Nl-1 
nn  =  i 
write (3, 2010)  nn,  aimag(xnl(i)) 

55  continue 

write (3, 2001)  N2 

write (3,*)  'INPUT  SEQUENCE  xn2  (REAL)' 

write(3,*)  'SAMPLE  #  (n) • 

write  (3,*)  'REALxn2()' 
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do  56  i=0,  N2-1 
nn  =  i 
write (3, 2010)  nn,  real(xn2(i)) 

56  continue 

write (3, 2001)  N2 

write (3,*)  'INPUT  SEQUENCE  xn2  (IMAGINARY)  ' 

write(3,*)  'SAMPLE  #  (n)  ' 

write(3,*)  'IMAG  xn2()  ' 

do  57  i=0,  N2-1 
nn  =  i 
write(3,2010)  nn,  aimag(xn2(i) ) 

57  continue 

C  WRITE  INPUT  DATA  INTO  FILE:  C0NC0RFT . OUT . 

write (2, 1016)  infile 
write (2, 1017)  Nl,  dsrcel,  N2,  dsrce2 
write (2,1018)  option 
write (2, 1014) 
write (2, 1015)  'xnl() ■ 
do  65  i=0,  Nl-1 
write(2,1026)  i,  xnl(i) 

65  continue 

write (2, 1015)  'xn2()' 
do  66  i=0,  N2-1 
write (2, 1026)  i,  xn2(i) 

66  continue 

C  FOR  LINEAR  CONVOLUTION  OR  LINEAR  CORRELATION  BOTH  INPUT  ARRAYS 
C  ARE  ZERO-PADDED  TO  LENGTH  N3  =  2**m  WHERE  2**m  IS  GREATER  THAN 
C  OR  EQUAL  TO  Nl  +  N2  -  1. 

if ( (option. eq. •  LOON ' ) . or . (option. eq. '  LCOR ' ) )  then 
N3  =  Nl  +  N2  -  1 
iend  =  N3 
do  555  m=0,  10 

if (2**m  -  N3)  555,556,556 

555  continue 

556  N3  =  2**m 

call  zeropad(xnl,Nl,N3) 
call  zeropad(xn2,N2,N3) 
endif 

C  THE  ARRAYS  ARE  RESEQUENCED  IN  BIT-REVERSED  ORDER  BEFORE  THE 
C  FFT  CALCULATION  IS  PERFORMED. 

cal 1  reversal ( N3 , m , xnl , xtmpl ) 
call  reversal (N3,m,xn2,xtmp2) 
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call  fft(N3,m,xtmpl) 

call  fft(N3,m,xtmp2) 

C  IF  option  =  'CCON'  OR  'LOON*  PERFORM  CONVOLUTION  COMPUTATION. 

if ( (option. eq. ■ LOON ' ) . or . (option. eq. ' CCON ' ) )  then 
do  22  i=0,  N3-1 

xtmp3(i)  =  xtmpl(i)*xtmp2(i) 
22      continue 
else 

C  IF  option  =  'CCOR'  OR  'IGOR'  PERFORM  CORREIATION  COMPUTATION. 

do  75  i=0,  N3-1 

xtmpl(i)  =  conjg(xtnpl(i) ) 
xtamp3(i)  =  xtnpl(i)*xtrtp2(i) 
75     continue 

endif 

C  THE  RESULTING  ARRAYS  ARE  RESEQUENCED  IN  BIT-REVERSED  ORDER 
C  BEFORE  THE  INVERSE  FFT  IS  CALCULATED. 

call  reversal (N3,m,xtnp3,xn3) 
call  invfft(N3,m,xn3) 

C  WRITE  RESULTS  INTO  FILE:  CONCORFT.DAT. 

write (3, 2001)  iend 

write (3, 2 003)  title 

write(3,*)  'SAMPLE  #  (n) ' 

write (3,*)  'REALxn3()' 

do  58  i=0,  iend-1 
nn  =  i 
write(3,2010)  nn,  real(xn3(i)) 

58  continue 

write (3, 2001)  iend 

write(3,2003)  title 

write(3,*)  'SAMPLE  #  (n) ' 

write(3,*)  'IMAGxn3()' 

do  59  i=0,  iend-1 
nn  =  i 
write(3,2010)  nn,  aimag(xn3(i) ) 

59  continue 
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C  WRITE  RESULTS  INTO  FILE:  CONCORFT.OUT. 

write (2, 1025) 
write (2, 1015)  'xn3()» 
do  67  i=0,  iend-1 
write(2,1026)  i,  xn3(i) 
67    continue 

write (*, 1019) 

999  close (unit=l) 
close (unit=2 ) 
close (unit=3 ) 

if (ierr.gt.O)  then 
write (*, 1116)  infile,  ierr 
endif 

C  ********  INPUT  FORMAT  ******** 

1000  f ormat (i3, til, al) 

1001  format (i3,tll,al,t21,a4) 

1002  f ormat (2f 10.0) 

Q       ******************************** 

1007  OformatC  option  =  ',a4,' ,  Nl=  ,fi3/'/  N2  =  ',i3,/,»  For  ', 

l1  option  =  CCON  or  CCOR,  Nl  and  N2  must  be  integer  powers  of  2. ') 

1008  0format( '  option  =  » ,a4, • ,  Nl  =  • ,i3, ' ,  N2  =  • , i3, ' ,  Error, ' , 
1 ■  Nl  is  not  equal  to  N2 . • ) 

1009  format(lx,al0,al, '  Error,  value  not  allowed. • ) 

1010  format(lx,a5,i3,2x, 'Error,  value  not  allowed. ' ) 

1011  format (lx, 'option  =  ' ,a4,2x, 'Error,  illegal  value  for  option.') 

1012  0format(/,  '  THE  FIRST  '  ,il,  '  VALUES  OF  INHJT  DATA  ARE  LISTED  ' , 
1/, '  BELOW,   VERIFY  THAT  THE  DATA  IS  CORRECT. ' ,/) 

1013  0format(t21,  'xnl()  \t53,  'xn2()  ',/,t4,  'n',tll,  'REAL',t27, 
1 ' IMAGINARY '  ,t4 3,  'REAL',t59,  'IMAGINARY') 

1014  format (/// , t2 1 , ' INPUT  DATA • , // ) 

1015  format(/,t21,a7,/,t6, 'n',tl3, 'REAL',t29, 'IMAGINARY') 

1016  f ormat (//////, '  INPUT  DATA  SOURCEFILE:  \al2) 

1017  OformatC  Nl  =  '  ,i3,5x, 'dsrcel  =  ',al,10x, 'N2  =  \i3,5x, 
l'dsrce2  =  ' ,al) 

1018  format ( lx , ' option  =  ■ , a4 ) 

1019  0 format (/, '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  CONCORFT.OUT. ' 
1,/, '  PLOTTING  DATA  IS  STORED  IN  FILE:  CONCORFT.DAT. ') 

1020  format(t4,il,4(4x,el2.6)) 

1025  format  (/// ,  t20 ,  '  OUTPUT  DATA ' , // ) 

1026  format(t4,i3,2(4x,el2.6)) 

1115  0format( lx, 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  LN  TEST' , 
1'  MODE  ?    (Y/N)  <CR>  :  ',\,) 

1116  Of ormat (///,lx, 'ERROR  OPENING  INPUT  FILE:  ' ,al2,/, lx, 'PROGRAM' , 
1»  TERMINATED. ' ,//,lx, 'ERROR  CODE: ' ,i4, /////) 

1117  format (al) 
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1118  Of ormat (/////, IX,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED1  , 
l1  BY  <CR>. ' ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE1 , 
2'  SAMPLE  DATA  ALREADY  STORED1 ,/,  '  IN  THE  FILE:  CONCORFT . TST '  , 
3'        TYPE:  CONCORFT. TST  <CR>1,/, '  FILENAME:  ',\,) 

1119  format  (al2) 

2000  format (il) 

2001  format (i3) 
2003  format  (a20) 

2010  format(el2.6,2x,el2.6) 


end 


SUBROUTINE:  zeropad 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY  xn() 
C  OF  LENGTH  N,  AND  ZERO  PADS  THE  ARRAY  TO  LENGTH  N3  WHERE 

C  N3  =  Nl  +  N2  -  1. 


subroutine  zeropad (xn,N,N3) 
complex  xn(0:N3-l) 

do  33  i=N,  N3-1 
xn(i)  =  cmplx(0. 0,0.0) 
33    continue 

return 
end 


SUBROUTINE:  invfft 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  X() ,  COMPUTES  THE  INVERSE  FFT  OF  THE  ARRAY,  AND 

C  RETURNS  THE  RESULTING  SEQUENCE  IN  THE  ARRAY  x() . 


subroutine  invfft (N,m,x) 
complex  x(0:N-l) 

en  =  N 

C  COMPUTE  THE  COMPLEX  CONJUGATE  OF  THE  INPUT  DATA. 

do  70  i=0,  N-l 
x(i)  =  conjg(x(i)) 
70    continue 
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C  COMPUTE  THE  FAST  FOURIER  TRANSFORM  OF  THE  ARRAY. 

call  fft(N,m,x) 

C  COMPUTE  THE  COMPLEX  CONJUGATE  OF  THE  RESULTING  ARRAY. 

do  80  i=0,  N-l 
x(i)  =  conjg(x(i)  )/en 
80    continue 

return 
end 

C  SUBROUTINE:  reversal 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  xtmpO  .  THE  OUTPUT  OF  THIS  SUBROUTINE  IS  THE  COMPLEX 

C  ARRAY  x()  THAT  CONTAINS  THE  INPUT  VALUES  IN  BIT- 

C  REVERSED  ORDER. 


subroutine  reversal (N , m, xtmp , x) 
complex  xtrnp(0:N-l) ,  x(0:N-l) 

do  10  k=0,  N-l 
newaddr  =  0 
maddr  =  k 
do  20  i=0,  m-1 

lrmndr  =  mod (maddr, 2) 
newaddr  =  newaddr  +  lrmndr*2**(m-l-i) 
maddr  =  maddr/ 2 
20     continue 

x (newaddr)  =  xtmp(k) 
10    continue 

return 
end 


SUBROUTINE:  fft 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY  x()  , 
C  COMPUTES  THE  FAST  FOURIER  TRANSFORM  (FFT)  OF  THE 

C  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  ORIGINAL  ARRAY  x() . 


subroutine  fft(N,m,x) 
complex  x(0:N-l) ,  W,  tmp 
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pi  =  4.0*atan(1.0) 
en  =  N 

do  50  L=l,  m 
ispace  =  2**L 
s  =  N/ ispace 
iwidth  =  ispace/2 
do  40  j=0,  iwidth-1 
r  =  s*j 

alpha  =  2.0*pi*r/en 
W  =  cnoplx  (cos  (alpha) , -sin  (alpha) ) 
do  30  itop= j ,  N-2,  ispace 
ibot  =  itop  +  iwidth 
trap  =  x(ibot)*W 
x(ibot)  =  x(itop)  -  tup 
x(itop)  =  x(itop)  +  tmp 
30       continue 
40     continue 
50    continue 

return 
end 


SUBROUTINE:  sampll 


C  PURPOSE:   THIS  SUBROUTINE  AIIOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xnl() .  IF  dsrcel  =  'S!  THEN  THE  MAIN  PROGRAM  WILL 

C  CALL  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR 

C  xnl() .  IF  dsrcel  DOES  NOT  EQUAL  'S1  THEN  THIS 

C  SUBROUTINE  WILL  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  sampll (xnl,Nl) 
complex  xnl(0:Nl-l) 

pi  =  4.0*atan(1.0) 
enl  =  Nl 

C***  ******  ************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xnlQ  IN  THIS  SPACE.  THE 

C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  STN() ,COS() . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xnl()  IS: 

C 

C  ***  EXAMPLE  *** 

C 
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C     do  6  i=0,  Nl-1 

C      xnl(i)  =  cmplx(l. 0,0.0) 

C  6   continue 


C*  ****** **************************************************************** 


return 
end 


SUBROUTINE:  sampl2 


C  PURPOSE:   THIS  SUBROUTINE  AIIOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xn2()  .  IF  dsrce2  =  'S'  THEN  THE  MAIN  PROGRAM  WILL 

C  CALL  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR 

C  xn2() .   IF  dsrce2  DOES  NOT  EQUAL  'S'  THEN  THIS 

C  SUBROUTINE  WILL  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  sainpl2(xn2,N2) 
complex  xn2(0:N2-l) 

pi  =  4.0*atan(1.0) 
en2  =  N2 

C*  ****** **************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xn2()  IN  THIS  SPACE.  THE 

C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN() ,0030 . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xn2()  IS: 

C 

C  ***  EXAMPLE  *** 

C 

C     do  7  i=0,  N2-1 

C      xn2(i)  =  cmplx(2. 0,0.0) 

C  7   continue 

C* ******  **************************************************************** 


return 
end 
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C  CONCOR.FOR  VERSION:   2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  PERFORMS  EITHER  THE  LINEAR  CONVOLUTION 

C  (LOON)  OR  THE  LINEAR  CORRELATION  (LCOR)  OF  TWO  ARRAYS 

C  OF  INPUT  DATA.   THE  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM 

C  AND  FOUR  SUBROUTINES.   THE  SUBROUTINE  convol  PERFORMS 

C  THE  CONVOLUTTON  OF  THE  TWO  INPUT  ARRAYS  xnl()  and  xn2() 

C  AND  STORES  THE  RESULTS  IN  THE  OUTPUT  ARRAY  yn()  .   THE 

C  SUBROUTTNE  correl  PERFORMS  THE  CORRELATION  OF  THE  TWO 

C  ARRAYS  xnl()  AND  xn2()  ACCORDING  TO  THE  EQUATION: 

C  RxrLLxn2(p)  =  SUM[xnl(m)  *xn2(mfp)  ] .  THE  TWO  SUBROUTINES 

C  sampll  AND  SAMPL2  ALLOW  THE  USER  THE  OPTION  OF 

C  GENERATING  EITHER  OF  THE  TWO  INPUT  ARRAYS  BY  WRITING 

C  THE  APPROPRIATE  EQUATIONS.   IF  THE  USER  CHOOSES  TO 

C  GENERATE  THE  INPUT  DATA  BY  USING  EITHER  OF  THE  sanpl 

C  SUBROUTINES,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE 

C  SUBROUTINES  USING  STANDARD  FORTRAN  77  EXECUTABLE  STATE- 

C  MENTS  AND  THE  VALUES  GENERATED  MUST  BE  STORED  IN  THE 

C  ARRAYS  xnl()  AND  xn2()  .   THE  USER  HAS  THE  OPTION  OF 

C  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH  OR  TEST.  IN 

C  BATCH  MODE  THE  AMOUNT  OF  INTERACTION  WITH  THE  USER  IS 

C  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT  PARAMETERS 

C  HAVE  BEEN  STORED  IN  THE  INPUT  FILE  'CONDOR. IN'.   IN 

C  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 

C  INPUT  FILE  AND  HAS  THE  OPTION  TO  PERFORM  A  TRIAL  RUN 

C  USING  THE  DATA  STORED  IN  THE  FILE  'CONCOR.TST'  . 

C  IT  IS  RECOMMENDED  THAT  FIRST-TTME  USERS  SELECT  THE 

C  TEST  MODE  AND  PERFORM  A  TRIAL  RUN  WITH  THE  PRESTORED 

C  DATA.   THE  TEST  MODE  ECHOES  PORTIONS  OF  THE  INPUT 

C  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF  ITS 

C  ACCURACY.   THE  OUTPUT  OF  THE  PROGRAM  'CONCOR.FOR1  IS 

C  STORED  IN  THE  ARRAY  yn()  IF  LINEAR  CONVOLUTTON  (LOON) 

C  IS  SELECTED  OR  IN  THE  ARRAY  R()  IF  LINEAR  CORRELATION 

C  (LCOR)  IS  SELECTED.   THE  OUTPUT  IS  STORED  IN  TABULAR 

C  FORM  IN  THE  FILE  'OONOOR.OUT'  AND  IN  A  FORM  SUITABLE 

C  FOR  PLOTTING  IN  THE  FILE  'CONCOR.DAT'  . 

C 

C 

C*******************************   INPUT   ******************************* 

C 

C 

C  THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  TWO  SEQUENCES  OF  INPUT  DATA 

C  STORED  IN  THE  ARRAYS  xnl()  AND  xn2() .   THE  SEQUENCE  xnl()  EXISTS 

C  IN  THE  RANGE:  nsl  <=  n  <=  nel.  THE  SEQUENCE  xn2()  EXISTS  IN  THE 

C  RANGE:  ns2  <=  n  <=  ne2.   THE  CONSTRAINTS  ON  THESE  VALUES  ARE: 

C  -128  <=  nsl  <=  nel  <=  128  AND  -128  <=  ns2  <=  ne2  <=  128. 

C  THIS  PROGRAM  ALLOWS  THE  USER  THE  OPTION  OF  EITHER  READING 

C  THE  INPUT  ARRAYS  FROM  A  DATA  FILE  OR  OF  GENERATING  THE  INPUT 

C  VALUES  FROM  AN  ITERATIVE  EQUATION  IN  THE  sampl  SUBROUTTNE  (S)  . 

C  THE  PARAMETERS  DESCRIBED  BELOW  ALLOW  THE  USER  TO  SELECT  THE 
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DESIRED  OPTIONS  AND  THESE  PARAMETERS  MUST  BE  STORED  IN  THE  INPUT 
FILE  'CONCOR.IN, .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
PROGRAM  REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE 
PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 


NAME 

option 

nsl 

nel 

dsrcel 

ns2 

ne2 

dsrce2 

xnl(n) 

xn2(n; 

WHERE: 

option  = 


TYPE 

CHARACTER 

INTEGER 

INTEGER 

CHARACTER 

INTEGER 

INTEGER 

CHARACTER 

REAL 

REAL 


RANGE  (ARRAYS) 


nsl  <=  n  <=  nel 
ns2  <=  n  <=  ne2 


RESTRICTIONS 

•LOON'  OR  'LCOR' 
-128  <=  nsl  <=  128 
-128  <=  nel  <=  128 

•F'  OR  'S» 

-128  <=  ns2  <=  128 

-128  <=  ne2  <=  128 

•F1  OR  'S' 

nsl  <=  nel 

ns2  <=  ne2 


A  CHARACTER  STRING  OF  FOUR  LETTERS  DENOTING  THE 
COMPUTATION  DESIRED:   'LOON'  =  LINEAR  CONVOLUTION 

'LCOR'  =  LINEAR  CORRELATION. 


nsl  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  STARTING  SAMPLE  POINT  OF 
THE  SEQUENCE  xnl() . 

nel  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  ENDING  SAMPLE  POINT  OF 
THE  SEQUENCE  xnl() . 

dsrcel  =  A  CHARACTER  VALUE  OF  !F'  OR  »S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xnl()  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampll. 

ns2  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  STARTING  SAMPLE  POINT  OF 
THE  SEQUENCE  xn2 ( ) . 

ne2  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  ENDING  SAMPLE  POINT  OF 
THE  SEQUENCE  xn2() . 

dsrce2  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xn2()  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampl2. 

THE  FIRST  ARRAY  OF  INPUT  DATA.  IF  dsrcel  =  »F'  IS 
SPECIFIED,  THE  USER  MUST  SUPPLY  THE  Nl  INPUT  VALUES  IN 
THE  FILE  (WHERE  Nl  =  nel  -  nsl  +  1) .  IF  dsrcel  =  'S1 
THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  INPUT 
SEQUENCE  xnl()  BY  WRITING  THE  APPROPRIATE  FORTRAN 


xnl()  = 
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STATEMENTS  IN  THE  SPACE  ALLOCATED  IN  SUBROUTINE  sampll. 
IF  THIS  METHOD  OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM 
MUST  BE  RECOMPILED  BEFORE  EXECUTION. 

THE  SECOND  ARRAY  OF  INPUT  DATA.  IF  dsrce2  =  'F'  IS 
SPECIFIED,  THE  USER  MUST  SUPPLY  THE  N2  INPUT  VALUES  IN 
THE  FILE  (WHERE  N2  =  ne2  -  ns2  +  1) .   IF  dsrce2  =  'S' 
THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  INPUT 
SEQUENCE  xn2()  BY  WRITING  THE  APPROPRIATE  FORTRAN 
STATEMENTS  IN  THE  SPACE  ALLOCATED  IN  SUBROUTINE  sampl2. 
IF  THIS  METHOD  OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM 
MUST  BE  RECOMPILED  BEFORE  EXECUTION. 

THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 
FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 


C 
C 
C 

c 

C  xn2()  = 
C 

c 
c 
c 
c 
c 
c 
c 

C  NOTE: 

C 

C 

C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C        2. 

c 
c 
c 
c 
c 
c 

C        3. 

c 
c 
c 
c 
c 

C******************************   OUTPUT   ******************************* 


LLNE# 

1 

2 

3 
NOTE1 
NOTE2 

NOTES  1. 


ENTRIES 

option 
nsl , nel , dsrcel 
ns2 , ne2 , dsrce2 

ail() 

xn2() 


FORMAT 

a4 
i4,tll,i4,t21,al 
i4,tll,i4,t21,al 

flO.O 

flO.O 


IF  dsrcel  =  'F'  THEN  THE  NEXT  Nl  LINES  MUST  CONTAIN 
THE  VALUES  TO  BE  READ  INTO  THE  ARRAY  xnl() . 
IF  dsrcel  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xnl()  IN  THE  SUBROUTINE  sampll.   THE 
USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sampll  TO  GENERATE  xnl ( ) . 

IF  dsrce2  =  'F1  THEN  THE  NEXT  N2  LINES  CONTAIN  THE 
VALUES  TO  BE  READ  INTO  THE  ARRAY  xn2(). 
IF  dsrce2  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xn2()  IN  THE  SUBROUTINE  sampl2.  THE 
USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sampl2  TO  GENERATE  THE  ARRAY  xn2 ( ) . 

THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE 
DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 
COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 
USED  (E.G.,  3146.2  =  3.1462E+03). 


C 
C 
C 
C 


THE  OUTPUT  SEQUENCE  GENERATED  BY  THE  PROGRAM  WILL  EXIST  ONLY  OVER 
THE  NON-ZERO  RANGE  DETERMINED  AS  FOLLOWS:   FOR  option  =  'LOON' 
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C  yn(n)  EXISTS  IN  THE  RANGE  nsl  +  ns2  <=  n  <=  nel  +  ne2;  FOR  option  = 

C  'LCOR'  R(p)  EXISTS  IN  THE  RANGE  ns2  -  nel  <=  p  <=  ne2  -  nsl.  THE 

C  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR  FORM 

C  IN  THE  FILE  ■GONCOR.OUT' .   ADDITTONALLY,  THE  INPUT  SEQUENCES  AND 

C  THE  OUTPUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FILE  •CONCOR.DAT1  TO 

C  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED  PROGRAM.   THE 

C  FORMAT  OF  THE  DATA  IN  ,CONCOR.DAT,  IS:   el2.6,  2x,  el2.6.   THE 

C  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE  AND  THE  SECOND  ENTRY, 

C  THE  ABSCISSA  VALUE.   ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO 

C  'CONCOR.DAT1  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 

C 

C 

C******************************   EXAMPLE   ****************************** 

C 

C 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 

C  'CONCOR.TST  .   THE  PROGRAM  READS  THE  FIRST  4  VALUES  INTO  xnl() 

C  (dsrcel  =  »F')  ,  AND  READS  THE  NEXT  5  VALUES  INTO  xn2()  (dsrce2  = 

C  'F')  .   THE  GOAL  IS  TO  COMPUTE  THE  LINEAR  CONVOLUTION  OF  THE 

C  TWO  INPUT  ARRAYS. 

C 

C  THE  SEQUENCE  xnl()  EXTENDS  FROM  -3  TO  0  (nsl  =  -3,  nel  =  0) . 

C  xnl(n)  =1.0  FOR  nsl  <=  n  <=  nel 

C  =0.0  OTHERWISE 

C 

C  THE  SEQUENCE  xn2()  EXTENDS  FROM  0  TO  4  (ns2  =  0,  ne2  =  4) . 

C  xn2(n)  =  n+1  FOR  ns2  <=  n  <=  ne2 

C  =0.0  OTHERWISE 

C 

C  THE  APPROPRIATE  INPUT  FILE  ENTRIES  ARE: 

C 

C  LOON 

C  -3      0000      F 

C  0000      0004      F 

C  1.0 

C  1.0 

C  1.0 

C  1.0 

C  1.0 

C  2.0 

C  3.0 

C  4.0 

C  5.0 

C 

C 

C  THE  RESULTING  OUTPUT  DATA  FILE  'GONCOR.OUT1  IS: 

C 

C  INPUT  DATA  SOURCEFILE:  CONCOR.TST 

C  nsl  =   -3   nel  =    0   dsrcel  =  F 

C  ns2  =    0   ne2  =    4   dsrce2  =  F 

C  option  =  LOON 
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c 

C  INPUT  DATA 

C 

C  n     xnl(n) 

C 

C  -3     . 100000E+01 

C  -2      . 100000E+01 

C  -1     . 100000E+01 

C  0     . 100000E+01 

C 

C  n     xn2  (n) 

C 

C  0     . 100000E+01 

C  1     .200000E+01 

C  2     .300000E+01 

C  3      .400000E+01 

C  4      . 500000E+01 

C 

C 

C  OUTPUT  DATA 

C 

C  n      yn(n) 

C 

C  -3     . 100000E+01 

C  -2      .300000E+01 

C  -1     . 600000E+01 

C  0     . 100000E+02 

C  1     .140000E+02 

C  2      .120000E+02 

C  3      .900000E+01 

C  4     .500000E+01 

C 

C 

C  NOTE:   FOR  ILLUSTRATIVE  RJRPOSES  THE  INRJT  SEQUENCES  xnl() 

C  AND  xn2()  OOUID  HAVE  BEEN  GENERATED  BY  WRITING  THE 

C  APPROPRIATE  STATEMENTS  IN  SUBROUTINES  sanpll  AND 

C  AND  sainpl2.   THE  STATEMENTS  THAT  COUUD  BE  USED  TO 

C  ACCOMPLISH  THIS  ARE  WRITTEN  INTO  THE  SUBROUTINES  BUT 

C  ARE  '  COMMENTED  OUT '  . 

C 

C 

C***************************   MAIN  PROGRAM   **************************** 


character  infile*12,  option*4,  mode*!,  dsrcel*l,  dsrce2*l 

character  ylabl*5,  title*18,  xlabl*12 

real  xnl( -128: 128)  ,xn2 (-128:128) ,  yn(-256:256) ,  R(-256:256) 

real  nn 

integer  p 
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C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if ((mode.eq. 'y') .or. (mode.eq. 'Y'))  then 
mode  =  'Y' 
write (*, 1118) 
read (*, 1119)  infile 

else 
infile  =  ■CONCOR.IN1 

endif 

C  UNTT=1  DEFINED  AS  INPUT  FILE.  UNTTS=2,3  DEFINED  AS  OUTPUT  FILES. 

open(unit=l, file=infile/status='old' , iostat=ierr,err=999) 
open (unit=2 , f ile= ' CONCOR . OUT ' ) 
open (unit=3 , f ile= • CONCOR. DAT ■ ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read(l,1000)  option 

read (1,1001)  nsl,  nel,  dsrcel 

read (1,1001)  ns2,  ne2,  dsrce2 

if ( (option. eq. ' Icon ' ) . or. (option. eq. ' LOON ' ) )  then 
option  =  'ICON' 
ylabl  =  'yn(n) ' 
xlabl  =  'SAMPLE  #  (n) ■ 
title  =  'Linear  Convolution' 
ns3  =  nsl  +  ns2 
ne3  =  nel  +  ne2 

elseif ( (option. eq. 'lcor' ) .or. (option. eq. 'LCOR' ) )  then 
option  =  'LCOR' 
ylabl  =  'R(p) ' 
xlabl  =  'SAMPLE  #  (p)  ' 
title  =  'Linear  Correlation' 
ns3  =  ns2  -  nel 
ne3  =  ne2  -  nsl 

else 
write (*, 1011)  option 
stop  'The  allowed  values  for  option  are:  ' 'LOON' '  or  ' 'LCOR' ' . ' 

endif 

if ((nsl. It. -128) .or. (nsl. gt. 128) )  then 
write (*, 1010)  'nsl  =  ',  nsl 
stop  'The  allowed  values  for  nsl  are:  -128  <=  nsl  <=  128. ' 

elseif ((ns2.lt. -128) .or. (ns2.gt.128) )  then 
write(*,1010)  'ns2  =  » ,  ns2 
stop  'The  allowed  values  for  ns2  are:  -128  <=  ns2  <=  128. ' 

endif 


244 


if ((nel.lt. -128) .or. (nel.gt.128) )  then 
write(*,1010)  'nel  =  ',  nel 
stop  "The  allowed  values  for  nel  are:  -128  <=  nel  <=  128. ■ 

elseif ( (ne2.lt. -128) .or. (ne2.gt.128) )  then 
write (*, 1010)  'ne2  =  ',  ne2 
stop  "The  allowed  values  for  ne2  are:  -128  <=  ne2  <=  128. ' 

endif 

if (nel.lt.nsl)  then 
write (*, 1120)  'nsl  =  »,  nsl,  'nel  =  • ,  nel 
stop  "The  value  nel  must  be  greater  than  or  equal  to  nsl. ' 

endif 

if (ne2.lt. ns2)  then 
write(*,1120)  'ns2  =  ',  ns2,  'ne2  =  ',  ne2 
stop  "The  value  ne2  must  be  greater  than  or  equal  to  ns2. ' 

endif 


if ( (dsrcel . eq. ' f ' ) . or . (dsrcel . eq. ' F ' ) )  then 
dsrcel  =  'F' 

elseif ( (dsrcel. eq. 's') .or. (dsrcel. eq. *S') )  then 
dsrcel  -   'S' 

else 
write (*, 1009)  'dsrcel  =  ',  dsrcel 
stop  "The  allowed  values  for  dsrcel  are:  "F"  or  '  'S'  ' .  ' 

endif 

if ( (dsrce2 . eq. ' f ' ) . or . (dsrce2 . eq. ' F ' ) )  then 
dsrce2  =  'F' 

elseif ( (dsrce2 . eq. ' s ' ) . or . (dsrce2 . eq. ' S ' ) )  then 
dsrce2  =  'S' 

else 
write (*, 1009)  'dsrce2  =  ',  dsrce2 
stop  "The  allowed  values  for  dsrce2  are:  ' 'F' '  or  ' 'S' ' . ' 

endif 


C  DEFINE  CONSTANTS  ACCORDING  TO  THE  FOLLOWING  SCHEME: 

C  Nl  =  THE  NUMBER  OF  SAMPIES  IN  THE  SEQUENCE  xnl() . 

C  N2  =  THE  NUMBER  OF  SAMPLES  IN  THE  SEQUENCE  xn2  ()  . 

C  N3  =  THE  NUMBER  OF  SAMPLES  IN  THE  OUTPUT  SEQUENCE. 

C  k  =  A  DUMMY  VARIABLE  USED  FOR  WRITING  THE  OUTPUT  TO  THE  MONITOR. 

C  numplts  =  A  CONTROL  PARAMETER  FOR  THE  DATA  STORED  IN  '  CONCOR.DAT' 

Nl  =  nel  -  nsl  +  1 
N2  =  ne2  -  ns2  +  1 
N3  =  ne3  -  ns3  +  1 
k  =  8 
numplts  =  3 
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C  FOR  dsrce#  =  'F'  READ  INHJT  DATA  FROM  THE  DATA  FILE. 

C  FOR  dsrce#  =  'S'  CALL  sampl#  TO  GENERATE  THE  INPUT  DATA. 

C  THE  INPUT  DATA  IS  STORED  IN  THE  ARRAYS  xnl()  ,  xn2()  . 

if (dsrcel.eq. 'F')  then 
read ( 1 , 1002 )  (xnl ( i) , i=nsl , nel) 

else 
call  sampll(nsl,nel,xnl) 

endif 

if (dsrce2.eq. 'F')  then 
read(l,1002)  (xn2(i) ,i=ns2,ne2) 

else 
call  sampl2(ns2,ne2,xn2) 

endif 


C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  MONITOR  (UNIT  =  *)  . 

if (mode.eq. 'Y')  then 
write ( * , 1016)  inf ile 

if  ((Nl.lt. 8)  .or.  (N2.lt. 8))  k^nin(Nl,N2) 

write (*, 1017)  'nsl  =  • ,nsl,  'nel  =  ' ,nel,  'dsrcel  =  ', dsrcel 
write(*,1017)  'ns2  =  ',ns2,  'ne2  =  ',ne2,  'dsrce2  =  ',dsrce2 
write(*,1018)  option 
write (*,  1012)  k 
write (*, 1013) 
indxl  =  nsl 
indx2  =  ns2 
do  3  i=0,  k-1 

write(*,1020)  indxl,  xnl(indxl),  indx2,  xn2(indx2) 
indxl  =  indxl+1 
indx2  =  indx2+l 
3      continue 
endif 

C  WRITE  THE  INPUT  SEQUENCES  INTO  FILE:  CONCOR.DAT. 

write (3, 2000)  numplts 

write (3, 2001)  Nl 

write ( 3 , *)  ■ INPUT  SEQUENCE  xnl (n) ■ 

write(3,*)  'SAMPLE  #  (n) ' 

write(3,*)  'xnl(n) ' 

do  55  n=nsl,  nel 
nn  =  n 

write (3, 2010)  nn,  xnl(n) 
55    continue 

write (3, 2001)  N2 

write (3,*)  'INPUT  SEQUENCE  xn2(n) ' 

write(3,*)  'SAMPLE  #  (n) ' 

write (3,*)  'xn2(n)' 
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do  56  n=ns2,  ne2 
nn  =  n 
write(3,2010)  nn,  xn2(n) 

56  continue 

C  WRITE  INPUT  DATA  INTO  FILE:  CONCOR.OUT. 

write (2, 1016)  infile 

write (2, 1017)  'nsl  =  ',nsl,  'nel  =  ',nel,  'dsrcel  =  ,/dsrcel 
write(2,1017)  !ns2  =  ',ns2,  »ne2  =  \ne2,    !dsrce2  =  ,/dsrce2 
write (2, 1018)  option 
write (2 ,1025)  'INPUT1 
write(2,1015)  'n»,  'xnl(n) ' 
do  4  n=nsl,  nel 
write (2, 1026)  n,  xnl(n) 

4  continue 

write(2,1015)  »n',  'xn2(n) ' 
do  5  n=ns2,  ne2 
write (2, 1026)  n,  xn2(n) 

5  continue 

C  IF  option  =  'LCON1  CALL  convol  TO  PERFORM  CONVOLUTION  COMPUTATION. 

if (option . eq. ' LCON ' )  then 
call  convol (nsl, Nl,ns2,N2,ns3,ne3,xnl,xn2,yn) 

C  IF  option  =  'LCOR'  CALL  correl  TO  PERFORM  CORRELATION  COMPUTATION. 

else 
call  correl (nsl , nel , ns2 , ne2 , ns3 , ne3 , xnl , xn2 , R) 
endif 

C  WRITE  RESULTS  INTO  FILE:  C0N00R.DAT. 

write (3, 2001)  N3 
write (3, 2 003)  title 
write (3, 2 004)  xlabl 
write (3, 2 005)  ylabl 
do  57  n=ns3,  ne3 
nn  =  n 

if (option. eq. ' LCON ' )  then 
write(3,2010)  nn,  yn(n) 
else 

write (3, 2010)  nn,  R(n) 
endif 

57  continue 
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C  WRITE  RESULTS  INTO  FILE:  CONCOR.OUT. 

if (option. eq. ' LOON ' )  then 
write  (2, 1025)  'OUTPUT' 
write (2, 1015)  'n',  ylabl 
do  9  n=ns3,  ne3 

write(2,1026)  n,  yn(n) 
9      continue 

else 
write(2,1025)  'OUTHJT' 
write(2,1015)  'p',  ylabl 
do  11  p=ns3/  ne3 

write(2,1026)  p,  R(p) 
11     continue 
endif 

write (*, 1019) 

999  close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.O)  then 
write (*, 1116)  infile,  ierr 
endif 

C  ********  INRJT  FORMAT  ******** 

1000  format (a4) 

1001  format(i4,tll,i4,t21,al) 

1002  format(flO.O) 

c   ******************************** 

1009  format ( lx , alO , al , '  Error ,  value  not  allowed . ■ ) 

1010  format(lx,a6,i4,2x, 'Error,  value  not  allowed. ' ) 

1011  format (lx, 'option  =  ' ,a4,2x, 'Error,  illegal  value  for  option.') 

1012  0format(/,  '  THE  FIRST  '  ,il,  '  VALUES  OF  LNHJT  DATA  ARE  LISTED  ' , 
1/ , '  BELOW,   VERIFY  THAT  THE  DATA  IS  CORRECT. * ,/) 

1013  format(t7, 'n',tl2, *xnl() ',t28, 'n',t33, 'xn2() ') 

1015  format (/,t7,al,tl4,a6,/) 

1016  format (///,'  LNHJT  DATA  SOURCEFLLE:  ',al2) 

1017  format (Ix,a6,i4,3x,a6,i4,3x,a9,al) 

1018  format ( lx , ' option  =  ' , a4 ) 

1019  0format(//,  '  TABULAR  OUTHJT  DATA  IS  STORED  LN  FILE:  CONCOR.OUT.  ' 
1/,  '  PLOTTING  DATA  IS   STORED  LN  FILE:  CONCOR.DAT.  ') 

1020  format(t4,i4,tl0,el0.4,t25,i4,t31,el0.4) 

1025  format (/// ,  t7 ,  a6 ,  '  DATA ' , / ) 

1026  format(t4,i4,tl2,el2.6) 

1115  0format(lx, 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 
1'  MODE  ?    (Y/N)  <CR>  :  ',\,) 
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1116  Oformat(///,lx,  'ERROR  OPENING  INPUT  FILE:  ',al2,/,lX,  'PROGRAM' 
V   TERMINATED.  ■  ,//,lx,  'ERROR  CODE:  '  ,i4, /////) 

1117  format (al) 

1118  Of ormat (///// ,lX,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>. ' ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE1 , 
2*  SAMPLE  DATA  ALREADY  STORED',/,  '  IN  THE  FILE:  OONCOR.TST'  , 
3'        TYPE:  OONCOR.TST  <CR>'//, '  FILENAME:  ',\,) 

1119  format (al2) 

1120  format(2x,a6,i4,5x,a6,i4,5x, 'Error. ') 

2000  format (il) 

2001  format (i3) 

2003  format (al8) 

2004  format (al2) 

2005  format (a5) 

2010  format(el2.6,2x,el2.6) 

end 


SUBROUTINE:  convol 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  ARRAYS  xnl()  and 
C  xn2()  ,  COMPUTES  THE  LINEAR  CONVOLUTION  OF  THE  ARRAYS, 

C  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE  ARRAY  yn()  . 


subroutine  convol (nsl , Nl , ns2 , N2 , ns3 , ne3 , xnl , xn2 , yn) 
real  xnl (-128: 128) ,  xn2(-128:128) ,  yn(-256:256) 

J  =  0 

do  10  n=ns3,  ne3 
yn(n)  =  0.0 
do  20  i=j,  0,  -1 

if((j-i.lt.N2) .and. (i.lt.Nl))  then 

yn(n)  =  yn(n)  +  xn2(ns2+j-i)*xnl(nsl+i) 
endif 
20     continue 

j  =  j  +  1 
10    continue 

return 
end 
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SUBROUTINE:  correl 


C  PURPOSE:   THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  ARRAYS  xnl()  AND 
C  XTi2()  ,  AND  COMPUTES  THE  LINEAR  CORRELATION  OF  THE  ARRAYS 

C  BY  THE  FORMULA  R(p)  =  SUM[xnl(n)  *xn2  (rH-p)  ]  FOR 

C  ns3  <=  p  <=  ne3. 


subroutine  correl (nsl , nel , ns2 , ne2 , ns3 , ne3 , xnl , xn2 , R) 
real  xnl (-128: 128) ,  xn2(-128:128) ,  R(-256:256) 
integer  p 

J  -  0 

do  30  p=ns3,  ne3 
R(p)  =  0.0 
do  40  i=j,  0,  -1 
indexl  =  nel-j+i 
index2  =  ns2+i 
if ( ( indexl. ge. nsl) .and. (index2.1e.ne2) )  then 

R(p)  =  R(p)  +  xnl(indexl)*xn2(index2) 
endif 
40     continue 

j  =  j  +  1 
30    continue 

return 
end 


SUBROUTINE:  sampll 


C  PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xnl()  .   IF  dsrcel  =  'S1  THEN  THE  MAIN  PROGRAM  WILL  CALL 

C  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR  xnl  ( )  . 

C  IF  dsrcel  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 

C  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  sampll (nsl, nel, xnl) 
real  xnl (-128: 128) 

C*  ****** **************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xnl()  IN  THIS  SPACE.   THE 

C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  ,COS()  . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xnl()  IS  SHOWN. 
C 

250 


C  ***  EXAMPLE  *** 

C 

C  do  6  n=nsl,  nel 

C  xnl(n)  =1.0 

C  6  continue 


C* ******  **************************************************************** 


return 
end 


SUBROUTINE:  sanpl2 


C  PURPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xn2  ( )  .   IF  dsrce2  =  '  S  *  THEN  THE  MAIN  PROGRAM  WILL  CALL 

C  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR  xn2 ( ) . 

C  IF  dsrce2  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 

C  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  sampl2(ns2,ne2,xn2) 
real  xn2(-128:128) 

C*  ******  **************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xn2()  IN  THIS  SPACE.   THE 

C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  STN() ,005 () . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xn2()  IS  SHOWN. 

C 

C  ***  EXAMPLE  *** 

C 

C      do  7  n=ns2,  ne2 

C        xn2(n)  =  n  +  1.0 

C  7     continue 

C*  ****** **************************************************************** 


return 
end 
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C  DIFFEQ.FOR         VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  COMPUTES  THE  nERATTVE  SOLUTION  TO  A 

C  LINEAR,  TTME-INVARIANT  (LTT)  DIFFERENCE  EQUATION. 

C  THE  DIFFERENCE  EQUATION  MUST  BE  IN  THE  FORM: 

C  y(ns)  =  a(l)*y(ns-l)  +  ...  +  a(N)*y(ns-N)  + 

C  b(0)*x(ns)  +  b(l)*x(ns-l)  +  ...  +  b(L)  *x(ns-L)  . 

C  THE  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  TWO 

C  SUBROUTINES.   SUBROUTINE  diffeq  IS  CALLED  BY  THE  MAIN 

C  PROGRAM  TO  ITERATTVELY  SOLVE  THE  DIFFERENCE  EQUATIONS  AND 

C  SUBROUTINE  xgen  ALLOWS  THE  USER  THE  OPTION  OF  GENERATING 

C  THE  INPUT  SEQUENCE  x()  BY  WRITING  THE  APPROPRIATE 

C  EQUATIONS.   IF  THE  USER  ELECTS  TO  GENERATE  THE  SEQUENCE 

C  x()  BY  USING  xgen  THEN  THE  PROGRAM  MUST  BE  COMPILED 

C  AGAIN  BEFORE  EXECUTION.   THE  USER  HAS  THE  OPTION  OF 

C  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH  OR  TEST. 

C  IN  BATCH  MODE  THE  AMOUNT  OF  INTERFACE  WITH  THE  USER 

C  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT  DATA 

C  HAS  BEEN  STORED  IN  THE  DEFAULT  FILE  'DIFFEQ. IN'.   IN 

C  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 

C  INPUT  FILE  OR  HAS  THE  OPTION  OF  PERFORMING  A  TEST  RUN 

C  USING  THE  INPUT  DATA  STORED  IN  THE  FILE  ' DIFFEQ. TST'  . 

C  IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  THE 

C  TEST  MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED 

C  INPUT  DATA.   THE  TEST  MODE  ECHOES  PORTIONS  OF  THE 

C  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF 

C  ITS  ACCURACY.   BOTH  BATCH  AND  TEST  MODES  ALLOW  THE 

C  USER  TO  SOLVE  UP  TO  FOUR  DIFFERENCE  EQUATIONS  IN  A 

C  SINGLE  PROGRAM  EXECUTION.   THE  OUTPUT  OF  THE  PROGRAM 

C  'DIFFEQ.FOR1  IS  STORED  IN  THE  ARRAY  y()  .   THE  OUTPUT  IS 

C  STORED  IN  TABULAR  FORM  IN  THE  OUTPUT  FILE  'DIFFEQ.FOR' 

C  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING  IN  THE  FILE 

C  'DIFFEQ.DAT'. 

C 

C 

C******************************   INPUT   ******************************** 

C 

C 

C  THIS  PROGRAM  ASSUMES  THAT  EACH  DIFFERENCE  EQUATION  IS  IN  THE 

C  CANONICAL  FORM: 

C 

C  y(ns)  =  a(l)*y(ns-l)  +  ...  +  a  (N)  *y  (ns-N)  + 

C  b(0)*x(ns)  +  b(l)*x(ns-l)  +  ...  +  b(L)*x(ns-L) 

C 

C  L  =  A  NON-NEGATIVE  INTEGER,  THE  NUMBER  OF  INPUT  DEIAYS. 

C  N  =  A  NON-NEGATIVE  INTEGER,  THE  NUMBER  OF  OUTPUT  DEIAYS. 

C 

C  a(l)  . .  .a(N)  =  REAL  COEFFICIENTS  OF  THE  OUTPUT  TERMS. 

C  b(0)  . .  .b(L)  =  REAL  COEFFICIENTS  OF  THE  INPUT  TERMS. 

C 
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THE  INPUT  PARAMETERS  SHOULD  BE  STORED  IN  A  FILE  NAMED 
'DIFFEQ.IN1 .   ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 
REQUIRE  FORMATTED  INPUT.   PARTICULAR  ATTENTION  SHOULD  BE  PAID 
TO  THE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
DENOTE  'REAL'  NUMBERS.   THE  INPUT  PARAMETERS  REQUIRED  BY  THE 
PROGRAM  ARE  LISTED  BELOW. 


NAME 

numsys 

L 

N 

nstop 

xsorce 

b(k) 

a(k) 

y(k) 

x(ns) 
WHERE: 
numsys  = 


TYPE 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHARACTER 

REAL 

REAL 

REAL 

REAL 


RANGE  (ARRAYS) 


0,1, 

1,2, 
-N, 
0,1,  . 


.,  L 
,,  N 
,  -1 
nstop 


RESTRICTIONS 

1  <=  numsys  <=  4 
0  <=  L  <=  128 
0  <=  N  <=  128 

0  <=  nstop  <=  300 
•F'  OR  'S' 
0  <=  L  <=  128 

0  <=  N  <=  128 

1  <=  N  <=  128 

0  <=  nstop  <=  300 


THE  NUMBER  OF  SYSTEMS  TO  BE  EVALUATED. 
THIS  INTEGER  VALUE  MUST  OCCUR  AT  THE  TOP  OF  THE  INPUT 
FILE.  IT  DELINEATES  THE  NUMBER  OF  SYSTEMS  TO  BE  READ  BY 
THE  PROGRAM  AND  ANALYZED.   FOR  EACH  SYSTEM  (1. .  .numsys) 
THE  PARAMETERS  BELOW  MUST  APPEAR  IN  THE  INPUT  FILE. 


L  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  MAXIMUM  NUMBER  OF  DELAYS 
IN  THE  INPUT  SEQUENCE. 

N  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  MAXIMUM  NUMBER  OF  DELAYS 
IN  THE  OUTPUT  SEQUENCE. 

nstop  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  LARGEST  TIME  INDEX 
(ns)  FOR  WHICH  THE  DIFFERENCE  EQUATION  IS  TO  BE  SOLVED. 

xsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 

INPUT  SEQUENCE  x()  IS  TO  BE  READ  FROM  THE  INPUT  FILE  (F) 
OR  TO  BE  GENERATED  (S)  USING  THE  SUBROUTINE  xgen.   THIS 
LATER  OPTION  IS  ATTRACTIVE  WHEN  nstop  IS  A  LARGE  NUMBER 
AND  THE  INPUT  SEQUENCE  x()  CAN  BE  READILY  DESCRIBED  BY  AN 
ANALYTICAL  EXPRESSION.   IF  xsorce  =  »S'  THE  USER  MUST 
PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE 
PROVIDED  IN  SUBROUTINE  xgen  AND  THE  PROGRAM  MUST  BE 
RECOMPILED  BEFORE  EXECUTION. 

b(k)  =  REAL  COEFFICIENTS  OF  THE  INPUT  SEQUENCE  x(ns-k)  IN  THE 
ORDER:  b(0),  b(l)  ,  ...,  b(L)  . 
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C  a(k)  =  REAL  COEFFICIENTS  OF  THE  OUTPUT  SEQUENCE  y(ns-k)  IN  THE 

C        ORDER:   a(l) ,  a(2) ,  . . . ,  a(N) .   IF  N  =  0  THEN  THE  EQUATION 

C         IS  NON-RECURSIVE  AND  NO  a(k)  COEFFICIENTS  SHOULD  BE  IN 

C        THE  INPUT  FILE. 

C 

C  y(k)  =  THE  INTnAL  CONDITIONS  FOR  THE  OUTPUT  SEQUENCE  IF  THE 

C        DIFFERENCE  EQUATION  IS  RECURSIVE,  I.E.,  N  >  0.   THIS 

C         PROGRAM  CALCULATES  THE  SOLUTION  TO  THE  DIFFERENCE 

C        EQUATION  FROM  ns  =  0  TO  ns  =  nstop  THEREFORE  THE  INITIAL 

C        CONDITIONS  y(-N)  TO  y(-l)  MUST  BE  PROVIDED  IN  THE  INPUT 

C        FILE  IN  THE  ORDER:  y(-N) ,  y(-N+l) ,  ...,  y(-l) .   IF  N  =  0 

C        THEN  THE  EQUATION  IS  NON-RECURSIVE  AND  NO  INITIAL 

C        CONDITIONS  SHOULD  BE  GIVEN  IN  THE  INPUT  FILE. 

C 

C  x(ns)  =  THE  INPUT  SEQUENCE.   IF  xsorce  =  'F'  THEN  THE  INPUT 

C         SEQUENCE  X(0) ,  ...,  x (nstop)  MUST  BE  PROVIDED  BY  THE  USER 

C         IN  THE  INPUT  FILE.   IF  xsorce  =  'S'  THEN  THE  USER  HAS 

C         ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY  PROVIDING  THE 

C         APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SUBROUTINE  xgen. 

C 

C  NOTE:   THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

C        FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C        THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 

C  LINE  #  ENTRIES  FORMAT 

C 


C  1                  numsys                 ll 

C  2               L,N, nstop, xsorce     i3,tll,i3,t21,i3,t31,al 

C  NEXT  NB  LINES        b(k)  ,  k=0,l,...,L             6fl0.0 

C  NEXT  NA  LINES         a(k) ,  k=l, . . . ,N              6fl0.0 

C  NEXT  NY  LINES       y(k) ,  k=  -N, . . . ,-1             6fl0.0 

C  NEXT  NX  LINES     x(ns) ,  ns=  0, . . . , nstop          6fl0.0 

C 

C  WHERE:  NB  =  1  +  (L/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C 

C  NA  =  0  IF  N  =  0  OR 

C  NA  =  1  +  ((N-l)/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C 

C  NY  =  0  IF  N  =  0  OR 

C  NY  =  1  +  ( (N-1J/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C 

C  NX  =  0  IF  xsorce  =  'S'  OR 

C  NX  =  1  +  (nstop/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C  IF  xsorce  =  *F' 

C 

C  *NOTE:   FOR  numsys  >  1  THE  FORMAT  OF  LINES  2. . .  IS  REPEATED. 

C 

C  THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 

C  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 

C  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (EG. 

C  3146.2  =  3. 1462E+03) . 

C 
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c 

C******************************   OUTPUT    ****************************** 

C 

C 

C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 

C  FORM  IN  THE  FILE  ' DIFFEQ . OUT ' .   ADDITIONALLY,  THE  INPUT  SEQUENCE 

C  AND  THE  OUTPUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FILE  'DIFFEQ.DAT'  TO 

C  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED  PROGRAM.   THE 

C  FORMAT  OF  THE  DATA  IN  'DIFFEQ.DAT'  IS:  el2.6,  2X,  el2.6.  THE  FIRST 

C  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE,  AND  THE  SECOND  ENTRY,  THE 

C  ABSCISSA  VALUE.   ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO 

C  'DIFFEQ. DAT'  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 

C 

C 

C******************************   EXAMPLE   ****************************** 

C 

C 

C  THE  INPUT  PARAMETERS  FOR  THE  SYSTEM  DESCRIBED  BELOW  ARE  STORED  IN 

C  THE  SAMPLE  INPUT  FILE  'DIFFEQ. TST'  AND  CAN  BE  USED  FOR  A  TRIAL 

C  RUN  IN  TEST  MODE. 

C 

C  DIFFERENCE  EQUATION: 

C 

C  y(ns)  =  1.2*y(ns-l)  +  1.5*x(ns) 

C 

C  GOAL:    TO  OBTAIN  THE  SOLUTION  TO  THIS  DIFFERENCE  EQUATION  FOR 

C  ns  =  0  TO  ns  =  10,  GIVEN:  x(0) . . ,x(10)  =  100.0  AND 

C  THE  INITIAL  CONDITION  y(-l)  =  25.0. 

C 

C 

C  THE  INPUT  FILE  IS: 

C 

C  1 

C  000       001       010       F 

C  1.5 

C  1.2 

C  25.0 

C     100.0  100.0  100.0  100.0  100.0  100.0 

C     100.0  100.0  100.0  100.0  100.0 

c 
c 

C  THE  RESULTING  OUTPUT  FILE  'DIFFEQ. OUT'  IS: 

C 

C  INPUT  DATA  FOR  PROBLEM  #   1 

C 

C  PROBLEM  #  1    INPUT  DATA  SOURCEFILE:  DIFFEQ. TST 

C  THE  NUMBER  OF  INPUT  DELAYS:  L  =   0 

C  THE  NUMBER  OF  OUTPUT  DELAYS:  N  =   1 

C  THE  VALUE  OF  nstop  IS:   10 
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C  THE  COEFFICIENTS  b(0) ,  b(l) ,  ...,  b(L)  ARE: 

C 

C  . 150000E+01 

C 

C 

C  THE  COEFFICIENTS  a(l) ,  ...,  a(N)  ARE: 

C 

C  . 120000E+01 

C 

C 

C  OUTPUT  DATA  FOR  PROBLEM  #  1 

C 

C  ns       x(ns)            y(ns) 

C  -1      .000000E+00        .250000E+02 

C  0      .100000E+03        .180000E+03 

C  1      .100000E+03        .366000E+03 

C  2      .100000E+03        .589200E+03 

C  3      .100000E+03        .857040E+03 

C  4      .100000E+03        .117845E+04 

C  5      .100000E+03        .156414E+04 

C  6      .100000E+03        .202697E+04 

C  7      .100000E+03        .258236E+04 

C  8      .100000E+03        .324883E+04 

C  9      .100000E+03        .404860E+04 

C  10      .100000E+03        .500832E+04 

C 

c ,_ . ,_  end  OF  PROBLEM  #  1  ■ — ■ 

C 

c 

C  FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCE  x()  COULD  HAVE  BEEN 

C  GENERATED  BY  SPECIFYING  xsorce  =  'S1  AND  WRITING  THE  APPROPRIATE 

C  FORTRAN  STATEMENTS  INTO  SUBROUTINE  xgen.  THE  STATEMENTS  THAT 

C  COULD  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN  INTO  THE  SUBROUTINE 

C  BUT  ARE  'COMMENTED  OUT1. 

C 

C 

C***************************   MAIN  PROGRAM   **************************** 


character  infile*12,  mode*l,  xsorce* 1 

real  a(l:128),  b(0:128),  y(-128:300),  x(-128:300),  ii 


C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 

read (*, 1117)  mode 

if ( (mode.eq. 'Y' ) .or. (mode.eq. 'y ' ) )  then 
mode  =  'Y' 
write (*, 1118) 
read (*, 1119)  infile 

else 
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infile  =  ,DIFFEQ.IN, 
endif 

C  UNIT=1  DEFINED  AS  INPUT  FILE.   UNITS=2,3  DEFINED  AS  OUTHJT  FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile=  *  DIFFEQ . OUT ■ ) 
open (unit=3 , f ile= ■ DIFFEQ . DAT ■ ) 

C  READ  INHJT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read ( 1 , 1000 )  numsys 

if ( (numsys. le.O) .or. (numsys. gt. 4) )  then 
write ( * , 112  6 )  numsys 
stop  "The  allowed  values  for  numsys  are  1  <=  numsys  <=  4. ' 

endif 

numplts  =  2*numsys 

write (3, 2 000)  numplts 

do  10  nprob=l,  numsys 
read (1,1001)  L,  N,  nstop,  xsorce 

if((L.lt.0) .or. (L.gt.128))  then 

write (*, 1124)  nprob,  'L1,  L 

stop  "The  allowed  values  for  "L"  are:  0  <=  L  <=  128.  ' 
endif 

if((N.lt.0) .or. (N.gt.128))  then 

write(*,1124)  nprob,  'N',  N 

stop  'The  allowed  values  for  • 'N' '  are:  0  <=  N  <=  128. ■ 
endif 

if ((nstop.lt. 0) .or. (nstop.gt.300) )  then 

write (*, 1127)  nprob,  nstop 

stop  "The  allowed  values  for  nstop  are:  0  <=  nstop  <=  300. ' 
endif 

if ( (xsorce. eq. 'F1 ) .or. (xsorce. eq. 'f ' ) )  then 

xsorce  =  'F' 
elseif ( (xsorce. eq. 'S' ) .or. (xsorce. eq. 's' ) )  then 

xsorce  =  'S' 
else 

write ( * , 112 8 )  nprob ,  xsorce 

stop  "The  allowed  values  for  ' 'xsorce' '  are:  ' 'F' '  or  ' 'S* ' . ' 
endif 

C  INTTIALIZE  EACH  ARRAY  TO  ZERO  BEFORE  EACH  RUN. 

data  a/128*0.0/,  b/129*0.0/ 
data  y/429*0.0/,  x/429*0.0/ 
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C  READ  THE  COEFFICIENTS  b()  ,  a()  AND  THE  INITIAL  CONDITIONS 
C  y(-N)...y(-l). 

read(l,1002)  (b(k) ,  k=0,L) 
if(N.gt.O)  then 

icstart  =  -N 

read(l,1002)  (a(k) ,  k=l,N) 

read(l,1002)  (y(k)  ,  k=icstart,-l) 
endif 

C  FOR  xsorce  =  *F'  READ  THE  ARRAY  x()  FROM  THE  INPUT  FILE. 
C  FOR  xsorce  =  'S'  CALL  xgen  TO  GENERATE  THE  ARRAY  x()  . 

if (xsorce. eq. '  F ' )  then 

read (1,1002)  (x(k) ,  k=0, nstop) 
else 

call  xgen(x,nstop,nprob) 
endif 

C  FOR  TEST  MODE  ECHO  INPUT  PARAMETERS  ONTO  MONITOR  (UNIT  =  *) 

if (mode.eq. 'Y')  then 
write (*, 1007) 

write ( * , 112  0 )  nprob ,  inf ile 
write(*,1110)  'INPUT1,  'L\  L 
write(*,1110)  'OUTPUT',  'N',  N 
write ( * , 1112 )  nstop 
write(*,1004) 

write (*, 1005)  (b(k),k=0,L) 
if(N.eq.O)  then 

write (*, 1131) 
else 

write (*, 1006) 

write(*,1005)  (a(k) ,k=l,N) 
endif 

write (*, 1123)  nprob 

pause  'END  OF  RUN,  STRIKE  <CR>  WHEN  READY  TO  CONTINUE. ' 
endif 

C  WRITE  INPUT  DATA  INTO  FILE:  DIFFEQ.OUT. 

write ( 2 , 1008 )  ' INPUT ' ,  nprob 

write (2, 1120)  nprob,  inf ile 

write(2,1110)  'INPUT',  'L\  L 

write(2,1110)  'OUTPUT',  'N',  N 

write ( 2 , 1112 )  nstop 
write (2, 1004) 

write(2,1005)  (b(k) ,k=0,L) 
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if(N.eq.O)  then 

write (2, 1131) 
else 

write (2 ,1006) 

write(2,1005)  (a(k) ,k=l,N) 
endif 

C  WRITE  THE  INPUT  SEQUENCE  INTO  FILE:  DIFFEQ.DAT. 

write (3, 2001)  nstop  +  1 
write(3,*)  'INPUT  SEQUENCE  x(ns) ■ 
write(3,*)  'SAMPLE  #  (ns) ' 
write(3,*)  'x(ns) ' 
do  54  ns=0,  nstop 

ii  =  ns 

write(3,2010)  ii,  x(ns) 

54  continue 

C  CALL  diffeq  TO  COMPUTE  THE  SOLUTION  TO  THE  DIFFERENCE  EQUATION. 

call  diffeq(N,L,a,b,x,y,nstop) 

C  WRITE  RESULTS  INTO  FILE:  DIFFEQ.DAT. 

write (3, 2001)  N  +  nstop  +  1 
write(3,*)  'OUTPUT  SEQUENCE  Y(ns) ■ 
write(3,*)  'SAMPLE  #  (ns) • 
write (3,*)  *y(ns) ■ 
do  55  ns=  -N,  nstop 

ii  =  ns 

write(3,2010)  ii,  y(ns) 

55  continue 

C  WRITE  RESULTS  INTO  FILE:  DIFFEQ. OUT. 

write (2, 1008)  'OUTPUT',  nprob 

write (2, 1129) 

do  102  ns=  -N,  nstop 

write(2,1130)  ns,  x(ns) ,  y(ns) 
102     continue 

write (2, 1123)  nprob 

10    continue 

write (*, 1121) 

999   close (unit=l) 

close (unit=2) 

close (unit=3) 

if (ierr.gt.0)  then 
write (*, 1116)  ierr 
endif 
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C********   INHJT  FORMAT  ******** 

1000  format (il) 

1001  format (i3,tll,i3,t21,i3,t31,al) 

1002  f ormat (6f 10.0) 

c******************************** 

1004  format(t4, 'THE  COEFFICIENTS  b(0) ,  b(l) ,  ...,  b(L)  APE:1,/) 

1005  format(6(lx,el2.6)) 

1006  format(//,t4, 'THE  COEFFICIENTS  a (1) ,  ...;  a(N)  APE:',/) 

1007  format(//////////) 

1008  format (///,tl6,a6,  '  DATA  FOR  PROBLEM  #  ',il,//) 

1110  format (t4, 'THE  NUMBER  OF  '  ,a6,  '  DELAYS:  \al,»  =  ',i3) 
1112  format (t4, 'THE  VALUE  OF  nstop  IS:  »,i3) 

1115  0format(lx, 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST* , 
1'  MODE  ?    (Y/N)  <CR>  :  \\,) 

1116  0 f ormat (///,lx,  'ERROR  OPENING  INPUT  FILE,  PROGRAM  TERMINATED.  », 
1// , lx, 'ERROR  CODE: ' , i4 ,/////) 

1117  format (al) 

1118  Of ormat (/////, lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>. ' ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 
2'  SAMPLE  DATA  ALREADY  STORED1,/,  '  IN  THE  FILE:  DIFFEQ.TST', 
3  '       TYPE:  DIFFEQ.TST  <CR>',/, '  FILENAME:  ',\,) 

1119  format (al2) 

1120  f ormat (///,t4, 'PROBLEM  #  ',il,'   INPUT  DATA  SOURCEFILE:  ',al2) 

1121  0format(//,  s  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  DIFFEQ.OUT.  ' 
1,/, '  PLOTTING  DATA  IS  STORED  IN  FILE:  DIFFEQ.DAT. ') 

1122  format (i3) 

1123  format(/,lx,16('-') , '  END  OF  PROBLEM  #' ,i2,2x,16( '-') ,//) 

1124  0 f ormat (//, '  For  problem  #',i2,'  the  value  for  ',al, '  is:  ',i3, 
1'.  This  value  is  not  allowed.') 

1126  f ormat (//, '  numsys  =  ',i4,'.  This  value  is  not  allowed.') 

1127  Of  ormat  (//,'  For  problem  #',i2,'  the  value  for  ''nstop"  is:  ', 
li3, ' .  This  value  is  not  allowed. ') 

1128  0 f ormat (//, '  For  problem  #',i2,'  the  value  for  ' 'xsorce' '  is:  ', 
lal, ' .  This  value  is  not  allowed. ' ) 

1129  format(t6, 'ns',tl6, 'x(ns) ',t35, 'y(ns) ') 

1130  format(t4,i4,tll,el4.6,t30,el4.6) 

1131  format(/,'  THIS  SYSTEM  IS  NON-RECURSIVE,  I.E.,  N  =  0.') 

2000  format (il) 

2001  format (i3) 

2010  format(el2.6,2x,el2.6) 

end 
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SUBROUTINE:  diffeq 


C  PURPOSE:   THIS  SUBROUTINE  COMPUTES  THE  SOLUTION  TO  A  DIFFERENCE 

C  EQUATION.   ALL  PARAMETERS  DESCRIBING  THE  EQUATION,  AND 

C  THE  INPUT  AND  OUTPUT  SEQUENCES  x()  AND  y()  ARE  PASSED 

C  TO  THE  SUBROUTINE  BY  THE  MAIN  PROGRAM. 

subroutine  diffeq(N,L,a,b,x,y,nstop) 

real  x(-128:nstop) ,  y(-128:nstop) ,  a(l:N) ,  b(0:L) 

do  500  ns=0,  nstop 
y(ns)  =  0.0 
do  501  k=0,  inax(N,L) 

y(ns)  =  y(ns)  +  a(k)*y(ns-k)  +  b(k)*x(ns-k) 
501     continue 
500   continue 

return 
end 


SUBROUTINE:  xgen 


C  PURPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  VALUES  FOR 

C  THE  ARRAY  x() .   IF  xsorce  =  'S'  THE  MAIN  PROGRAM  WILL 

C  CALL  THIS  SUBROUTINE.   IF  xsorce  =  'F1  THIS  SUBROUTINE 

C  WILL  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  xgen ( x , nstop , nprob) 
real  x( -128: nstop) 


C********* 


************************************************************** 


C  DEVELOP  THE  ALGORITHM  FOR  GENERATING  VALUES  OF  x()  IN  THIS  SPACE. 

C  THE  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SLN()  ,  COS()  ,  .  . . 

C  NOTE  THAT  THE  VALUE  nprob  CAN  BE  USED  IN  A  LOGICAL  'IF1  STATEMENT 

C  TO  MATCH  THE  GENERATING  FUNCTIONS  TO  THE  CORRESPONDING  SYSTEM 

C  EQUATION  READ  FROM  THE  INPUT  FILE  IF  MORE  THAN  ONE  SYSTEM  OF 

C  EQUATIONS  EXIST.   AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES 

C  FOR  x()  IS: 
C 
C 
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C***  EXAMPLE  *** 

C 

C  if (nprob.eq.l)   then 

C  do  1  ]<?=0,  nstop 

C  x(k)   =  100.0 

C  1  continue 

C  endif 

Q*  ******  *  1e  ******  Jeic***Jeic1cJtic*ici{1eieJcic*ic1c***JcJcJeJc*JcJeJeJcic*ieJticJc1cJe*&*Jc***Jt*JcJc*-k*,k-k 


return 
end 
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C  STATEQ.FOR        VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  COMPUTES  THE  ITERATIVE  SOLUTION  TO  A  SET 

C  OF  LINEAR,  TIME-INVARIANT  STATE  EQUATIONS.   THE  FORM 

C  OF  THE  STATE  EQUATIONS  IS: 

C 

C  v(ns+l)  =  Av(ns)  +  Bx(ns) 

C  y(ns)  =  Cv(ns)  +  Dx(ns) 

C 

C  WHERE  A,  B,  C,  D  ARE  MATRICES  OF  THE  SYSTEM  CONSTANTS, 

C  v  IS  THE  STATE  VECTOR,  x  IS  THE  INPUT  VECTOR,  AND  y 

C  IS  THE  OUTPUT  VECTOR.   THE  PROGRAM  CONSISTS  OF  A  MAIN 

C  PROGRAM  AND  TWO  SUBROUTINES.   THE  SUBROUTINE  xgen  GIVES 

C  THE  USER  THE  OPTION  OF  GENERATING  THE  VECTOR  INPUT 

C  SEQUENCE  x()  BY  WRITING  THE  APPROPRIATE  EQUATIONS  IN  THE 

C  SPACE  ALLOCATED  IN  THIS  SUBROUTINE.   IF  THE  USER  CHOOSES 

C  TO  GENERATE  THE  INPUT  DATA  BY  USING  SUBROUTINE  xgen  THE 

C  EQUATIONS  MUST  BE  WRITTEN  INTO  THE  SUBROUTINE  USING 

C  STANDARD  FORTRAN  77  EXECUTABLE  STATEMENTS  AND  THE  VALUES 

C  GENERATED  MUST  BE  STORED  IN  THE  2-DIMENSIONAL  ARRAY 

C  xs() .   THE  SUBROUTINE  itrate  COMPUTES  THE  STATE  OF  THE 

C  SYSTEM  v()  ,  AS  WELL  AS  THE  OUTPUT  OF  THE  SYSTEM  y()  ,  FOR 

C  EACH  VALUE  OF  ns  FROM  ns  =  0  TO  ns  =  nstop.  THE  USER 

C  HAS  THE  OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES: 

C  BATCH  OR  TEST.   IN  BATCH  MODE  THE  AMOUNT  OF  INTERFACE 

C  WITH  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE 

C  INPUT  PARAMETERS  DESCRIBED  BELOW  HAVE  BEEN  STORED  IN 

C  THE  INPUT  FILE  ■STATEQ-IN'.   IN  TEST  MODE  THE  USER  IS 

C  PROMPTED  FOR  THE  NAME  OF  THE  INPUT  FILE  AND  HAS  THE 

C  OPTION  OF  PERFORMING  A  TEST  RUN  USING  THE  DATA  STORED  IN 

C  IN  THE  FILE  'STATEQ.TST' .   IT  IS  RECOMMENDED  THAT  FTRST- 

C  TIME  USERS  SELECT  TEST  MODE  AND  PERFORM  A  TRIAL  RUN 

C  WITH  THE  PRESTORED  DATA.  THE  TEST  MODE  ECHOES  PORTIONS 

C  OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION 

C  OF  ITS  ACCURACY.   THE  OUTPUT  OF  THE  PROGRAM  'STATEQ.FOR1 

C  IS  STORED  IN  THE  2-DIMENSIONAL  ARRAY  ys()  AND  THE  SYSTEM 

C  STATES  ARE  STORED  IN  THE  2-DIMENSIONAL  ARRAY  vs()  .   THE 

C  INPUT  VALUES,  SYSTEM  STATES  AND  THE  OUTPUT  DATA  ARE 

C  STORED  IN  TABULAR  FORM  IN  THE  FILE  'STATEO-OUT'  AND  IN  A 

C  FORM  SUITABLE  FOR  PLOTTING  IN  THE  FILE  'STATEQ.DAT1  . 

C 

C 

C******************************   INPUT   ******************************** 

C 

C 

C  THIS  PROGRAM  ASSUMES  THAT  THE  STATE  EQUATIONS  ARE  IN  THE 

C  FORM  : 

C 

C  [vl(ns+l)]   [  all  ...  aNN]  [  vl(ns)  ]   [bll  ...  blM]  [xl(ns)] 

C  [v2(ns+l)]    [  a21  ...  a2N]  [  v2(ns)  ]   [b21  ...  b2M]  [x2(ns)] 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


[    ...     ]  = 

[vN(ns+l) ] 


[  aNl 


...]*[    ... 

aNN]  [  vN(ns) 


]   [bNl 


...]*[  ...   ] 
bNM]  [xM(ns)  ] 


[yl(ns)] 
[y2(ns)] 
[  ...  ] 
[YQ(ns)] 


[ell 
[c21 


=  [ 


[cQl 


clN]  [vl(ns)]  [dll 

c2N]  [v2 (ns) ]  [621 

...]*[   ...  ]  +  [... 

cQN]  [vN(ns)]  [dQl 


dlM]  [xl(ns)] 
d2M]  [x2(ns)J 
...]*[  ...  ] 
dQM]  [xM(ns)  ] 


N  IS  THE  NUMBER  OF  SYSTEM  STATES. 
M  IS  THE  NUMBER  OF  SYSTEM  INRJTS. 
Q  IS  THE  NUMBER  OF  SYSTEM  OUTPUTS. 

x  IS  THE  M  X  1  INPUT  VECTOR. 

v  IS  THE  N  x  1  STATE  VECTOR. 

y  IS  THE  Q  x  1  OUTFUT  VECTOR. 

A  IS  AN  N  X  N  M?TR_X  OF  CONSTANTS. 

B  IS  AN  N  x  M  MATRIX  OF  CONSTANTS. 

C  IS  A  Q  X  N  MATRIX  OF  CONSTANTS. 

D  IS  A  Q  x  M  MATRIX  OF  CONSTANTS. 


THE  SOLUTION  IS  GENERATED  IN  THE  INTERVAL  0  <=  ns  <=  nstop.  THE 
USER  MUST  PROVIDE  THE  MATRICES  A,  B,  C,  D  AS  WELL  AS  THE  INITIAL 
VALUES  OF  THE  STATE  VECTOR  v  IN  THE  INFUT  FILE,  THESE  INPUTS,  AS 
WELL  AS  THE  PARAMETERS  DESCRIBED  BELOW,  SHOULD  BE  STORED  IN  THE 
INPUT  FILE  ■STATEQ.IN1 .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
PROGRAM  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOULD  BE 
PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT 
TO  DISTINGUISH  BETWEEN  'REAL1  AND  INTEGER  DATA. 


NAME 

N 
M 

Q 

nstop 
xsorce 
A(i,j) 

B(i,j) 

C(i,j) 

D(i,j) 

v(i) 

xs(i,j) 


TYPE 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHARACTER 

REAL 

REAL 

REAL 

REAL 

REAL 
REAL 


RANGE  (ARRAYS) 


1=1,. 

i=l,. 

i=l,. 

i=l,. 

i=l,. 
i=l,. 

j=o,. 


.,N 
.,N 
.,N 
.,M 

.,Q 

.,N 

.,Q 
.,M 
.,N 
.,M 
. , nstop 


RESTRICTTONS 

0  <=  N  <=  10 
0  <=  M  <=  4 
0  <=  Q  <=  4 
0  <=  nstop  <=  99 
•F'  OR  'S' 
0  <=  N  <=  10 

0  <=  N  <=  10 
0  <=  M  <=  4 
0  <=  Q  <=  4 
0  <=  N  <=  10 


0  <=  Q  <= 
0  <=  M  <= 


0  <=  N  <=  10 
0  <=  M  <=  4 
0  <=  nstop  <=  99 
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c 
c 

C  WHERE: 

C 

C  N  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  NUMBER  OF  SYSTEM  STATES, 

C      I.E.,  THE  ORDER  OF  THE  SYSTEM. 

C 

C  M  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  NUMBER  OF  SYSTEM  LNPUTS. 

C 

C  Q  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  NUMBER  OF  SYSTEM  OUTPUTS. 

C 

C  nstop  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  LARGEST  TIME  INDEX 

C  (ns)  FOR  WHICH  THE  STATE  EQUATIONS  ARE  TO  BE  SOLVED. 

C 

C  xsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  »S'  DENOTING  WHETHER  THE  INPUT 

C  SEQUENCE(S)  xs(i,j)  ARE  TO  BE  READ  FROM  THE  INPUT  FILE  (F) 

C  OR  TO  BE  GENERATED  (S)  USING  THE  SUBROUTINE  xgen.   THIS 

C  LATTER  OPTION  IS  ATTRACTIVE  WHEN  nstop  IS  A  LARGE  NUMBER 

C  AND  THE  INPUT  SEQUENCE(S)  xs(i,j)  CAN  BE  READILY  DESCRIBED 

C  BY  ANALYTICAL  EXPRESSIONS.   IF  xsorce  =  'F'  THE  VALUES  OF 

C  xs(i,j) ,  i=l, ...,M  ;  j=0, ..., nstop  ARE  READ  FROM  THE 

C  LNPUT  FILE.   IF  xsorce  =  'S'  THEN  THE  USER  HAS  ELECTED 

C  TO  GENERATE  THE  INPUT  SEQUENCE (S)  xs(l, j) , . . . ,XS(M, j)  BY 

C  WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SUB- 

C  ROUTINE  xgen.   IF  THIS  METHOD  OF  INPUT  DATA  GENERATION 

C  IS  SELECTED  NO  VALUES  OF  THE  INPUT  SEQUENCE  SHOULD  APPEAR 

C  IN  THE  INPUT  FILE  AND  THE  PROGRAM  MUST  BE  RECOMPILED 

C  BEFORE  EXECUTION. 

C 

C  A(i,j)  =  AN  N  X  N  MATRIX  OF  REAL  NUMBERS. 

C 

C  B(i,j)  =  AN  N  X  M  MATRIX  OF  REAL  NUMBERS. 

C 

C  C(i,j)  =  A  Q  x  N  MATRIX  OF  REAL  NUMBERS. 

C 

C  D(i,j)  =  A  Q  x  M  MATRIX  OF  REAL  NUMBERS. 

C 

C  v(i)  =  THE  N  X  1  INITIAL  CONDITION  VECTOR  OF  THE  SYSTEM  STATES. 

C         THE  USER  MUST  PROVIDE  THE  VALUES  OF  THE  STATES  FOR  ns=0, 

C         I.E.,   v(l)  ,...,v(N)  .   THESE  VALUES  ARE  THE  INITIAL 

C        CONDITIONS  OF  THE  SYSTEM. 

C 

C  xs(i,j)  =  AN  M  x  (nstop+1)  MATRIX  OF  REAL  NUMBERS.  THE  SEQUENCE(S) 

C  xs(l,ns) , . . . ,xs(M,ns)  ARE  THE  INPUTS  TO  THE  SYSTEM  AT 

C  SAMPLE  ns. 

C 

C  NOTE:   THE  LNPUT  FORMAT  STATEMENTS  OCCUR  LN  THE  MAIN  PROGRAM 

C        FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C         THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 
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LINE  # 

1 
2 
NEXT  NA  LINES 

NEXT  N  LINES 

NEXT  NC  LINES 

NEXT  Q  LINES 

NEXT  Nv  LINES 
NEXT  NX  LINES 


ENTRIES 

FORMAT 

N,M,Q 

i2,tll,il,t21,il 

nstop,xsorce 

i2,tll,al 

A(i,j),i=l,...,N 

SflO.O 

j=l,...,N 

B(i,j),i=l,...,N 

4fl0.0 

j=l,...,M 

C(i,j),i=l,...,Q 

6fl0.0 

j=l,...,N 

D(i,j),i=l,...,Q 

4fl0.0 

j=l,...,M 

v(i)   i=l,...,N 

6fl0.0 

xs(i,j),i=l,...,M 

4fl0.0 

j=0, ,ntop 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C******************************   OUTPUT 


NOTES 


READ  BY  ROWS 


READ  BY  ROWS 


READ  BY  ROWS 


READ  BY  ROWS 


EACH  LINE 
CORRESPONDS 
TO  ONE  VALUE 
OF  ns. 


WHERE: 

NA  =  N 

2*N 


NC  = 


Nv 
Nv 
Nv 


Q 
2*Q 

0 
1 
2 


IF  N  <=  6 
OTHERWISE. 

IF  N  <=  6 
OTHERWISE. 

IF  N  =  0, 

IF  1  <=  N  <=  6, 

IF  N  >  6. 


Nx  =  0 


IF 


Nx  =  nstop  +  1 
NOTE: 


xsorce  =  'S' 
IF  xsorce 


OR 


THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 
POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 
AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (EG. 
3146.2  =  3.1462E+03) . 


****************************** 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


THE  INPUT  DATA,  SYSTEM  STATES,  AND  THE  OUTPUT  SEQUENCE (S)  ARE 
STORED  IN  TABULAR  FORM  IN  THE  FILE  'STATEQ.OUT'  .   ADDITIONALLY, 
UP  TO  9  SEQUENCES  CONSISTING  OF  THE  INPUT  AND  OUTPUT  SEQUENCES 
AND  THE  SYSTEM  STATES  ARE  STORED  IN  THE  FILE  'STATEQ.DAT'  TO 
FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  PROVIDED  PROGRAM.   NOTE 
THAT  A  MAXIMUM  OF  9  SEQUENCES  ARE  WRITTEN  INTO  THIS  FILE.   IF 
MORE  THAN  9  SEQUENCES  EXIST,  ALL  OF  THE  INPUT  AND  OUTPUT  SEQUENCES 
(xs()  AND  ys())  WILL  BE  STORED,  HOWEVER  SOME  OF  THE  SYSTEM  STATES 
(vs())  WILL  NOT  BE  STORED  IN  'STATEQ.DAT'.   THE  FORMAT  OF  THE  DATA 
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C  IN  'STATEQ.DAT1  IS:   el2.6,  2X,  el2.6.  THE  FIRST  ENTRY  CORRESPONDS 

C  TO  THE  ORDINATE  VALUE,  AND  THE  SECOND  ENTRY,  THE  ABSCISSA  VAIDE. 

C  ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO  'STATEQ.DAT1  TO 

C  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 

C 

C 

C******************************   EXAMPLE   ****************************** 

C 

C 

C  THE  INPUT  PARAMETERS  FOR  THE  SYSTEM  DESCRIBED  BELOW  ARE  STORED 

C  IN  THE  FILE  'STATEQ.TST'  .   THE  GOAL  IS  TO  READ  THE  INPUT  VALUES 

C  FROM  THE  INPUT  FILE  AND  TO  CALCULATE  THE  STATE  VECTOR  V  AND  THE 

C  CORRESPONDING  OUTPUT  VECTOR  y  FOR  ns  =  0  TO  3. 

C 

C  GIVEN:  N  =  2 

C        M  =  1 

C        Q  =  1 

C 

C   xl(ns)  =  10.0*u(ns) 

C   xsorce  =  'F'   I.E.,  THE  SEQUENCE  xs(l,ns)  IS  READ 

C  FROM  THE  LNPUT  FILE. 

C 

C   INTLTAL  CONDITIONS: 

C 

C   vl(0)  =  5.0 

C   v2(0)  =  -5.0 

C 

C  SYSTEM  OF  EQUATLONS  IN  MATRIX  FORM: 

C 

C  [vl(ns+l)]  =  [0.0  -1.0]*[vl(ns)]  +  [1.0]*[xl(ns) ] 

C  [v2(ns+l)]    [1.0   0.0]  [v2(ns)]    [0.0] 

C 

C  [yl(ns)]   =  [1.0  -1.0]*[vl(ns)]  +  [1.0]*[xl(ns) ] 

C  [v2 (ns) ] 

c 

C  THE  LNPUT  FILE  IS: 

C 

C  02        1         1 

C  03        F 

C  0.0       -1.0 

C  1.0       0.0 

C  1.0 

C  0.0 

C  1.0       -1.0 

C  1.0 

C  5.0       -5.0 

C  10.0 

C  10.0 

C  10.0 

C  10.0 

c 
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C     THE  RESULTING  OUTHJT  FILE    'STATEQ.OUT1    IS: 

C 

C  INHJT  PARAMETERS: 

C 

C     INPUT  DATA  SOURCE  FILE:  STATEQ.TST 

C     THE  NUMBER  OF  STATES  IS:  N  =  2 

C     THE  NUMBER  OF  SYSTEM  INPUTS  IS:  M  =  1 

C     THE  NUMBER  OF  SYSTEM  OUTPUTS  IS:  Q  =  1 

C     THE  VALUE  OF  nstop  IS:  nstop  =  3 

C     THE  VALUE  FOR  xsorce  IS:  F 

C 

C     THE  MATRIX  A(i,j)  IS: 

C 

C     .0000E+00  -.1000E+01 

C     . 1000E+01   . 0000E+00 

C 

C     THE  MATRIX  B(i,j)  IS: 

C 

C     . 1000E+01 

C     . 0000E+00 

C 

C     THE  MATRIX  C(i,j)  IS: 

C 

C     cl000E+01  -.1000E+01 

C 

C     THE  MATRIX  D(i,j)  IS: 

C 

C     . 1000E+01 

C 

C     THE  INITIAL  CONDITION  OF  THE  STATE  VECTOR  IS: 

C 

C       vl  =   .500000E+01 

C       v2  =  -.500000E+01 

C 

C 

C  OUTPUT  DATA: 

C 

C   FOR  ns  =  0  THE  STATE  OF  THE  SYSTEM  IS: 

C     THE  VECTOR  x  is: 

C       xl  =   .100000E+02 

C     THE  VECTOR  v  is: 

C       vl  =   .500000E+01 

C       v2  =  -.500000E+01 

C     THE  VECTOR  y  is: 

C       yl  =   .200000E+02 

C 

C   FOR  ns  =  1  THE  STATE  OF  THE  SYSTEM  IS: 

C     THE  VECTOR  x  is: 

C       xl  =   .100000E+02 

C     THE  VECTOR  v  is: 

C       vl  =   .150000E+02 

C       v2  =   .500000E+01 
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C  THE  VECTOR  y  is: 

C  yl  =  .200000E+02 

C 

C  FOR  ns  =  2  THE  STATE  OF  THE  SYSTEM  IS: 

C  THE  VECTOR  x  is: 

C  Xl  =   .100000E+02 

C  THE  VECTOR  v  is: 

C  vl  =   .500000E+01 

C  V2  =   .150000E+02 

C  THE  VECTOR  y  is: 

C  yl  =   .000000E+00 

C 

C  FOR  ns  =  3  THE  STATE  OF  THE  SYSTEM  IS: 

C  THE  VECTOR  x  is: 

C  xl  =   .100000E+02 

C  THE  VECTOR  v  is: 

C  vl  =  -.500000E+01 

C  v2  =   .500000E+01 

C  THE  VECTOR  y  is: 

C  yl  =  .000000E+00 

C 

C 

C  FOR  ILLUSTRATIVE  PURPOSES  THE  SAME  INPUT  SEQUENCE  COULD  HAVE  BEEN 

C  GENERATED  BY  CHANGING  xsorce  TO  'S'  AND  USING  SUBROUTINE  xgen 

C  TO  GENERATE  THE  VALUES  FOR  xs(l,ns)  .   THE  APPROPRIATE  FORTRAN 

C  STATEMENTS  ARE  WRITTEN  INTO  xgen  BUT  'COMMENTED  OUT*  FOR  THIS 

C  EXAMPLE. 

C 

C 

C***************************   MAIN  PROGRAM   **************************** 


real  A(10,10),  B(10,4),  0(4,10),  D(4,4) ,  jj 
real  ys (4, 0:99) ,  vs(10, 0:100) ,  xs(4,0:99),  v(10) 
integer  Q 
character*!  mode,  xsorce,  infile*12 


C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*, 1115) 
read (*, 1117)  mode 

if ((mode.eq. 'Y') .or. (mode.eq. 'y') )  then 
mode  =  'Y' 
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write (*, 1118) 

read (*, 1119)  infile 

else 
infile  =  'STATEQ. IN' 

endif 

C     UNTT=1  DEFINED  AS  INHJT  FILE.      UNTTS=2,3   DEFINED  AS  OUTPUT  FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' STATEQ . OUT ' ) 
open (unit=3 , f ile= • STATEQ . DAT ' ) 

C     READ  INHJT  PARAMETERS  AND  PERFORM  ERROR  CHECKS. 

read (1,1001)  n,  M,  Q 

read (1,1002)  nstop,  xsorce 

if((N.lt.0).or. (N.gt.10))  then 
write(*,1124)  'N1,  N 
stop  'The  allowed  values  for  •  'N* '  are:  0  <=  N  <=  10. ' 

endif 

if((M.lt.0)  .or.  (M.gt.4))  then 
write (*, 1124)  'M' ,  M 
stop  "The  allowed  values  for  '  'M' '  are:  0  <=  M  <=  4. ' 

endif 

if((Q.lt.0) .or. (Q.gt.4))  then 
write(*,1124)  'Q',  Q 
stop  "The  allowed  values  for  • 'Q* •  are:  0  <=  Q  <=  4. ' 

endif 

if ((nstop. It. 0) .or. ( nstop. gt. 99) )  then 
write (*, 1127)  nstop 
stop  'The  allowed  values  for  nstop  are:  0  <  nstop  <=  99. ' 

endif 

if ( (xsorce. eq. 'F') .or. (xsorce. eq. ' f ') )  then 
xsorce  =  'F' 

elseif ( (xsorce. eq. 'S' ) .or. (xsorce. eq. 's' ) )  then 
xsorce  =  'S' 

else 
write (*, 1128)  xsorce 
stop  'The  allowed  values  for  ' 'xsorce' '  are:  • 'F* '  or  ' 'S' ' . ' 

endif 

C  FOR  TEST  MODE  ECHO  INPUT  PARAMETERS  ONTO  MONITOR  (UNIT  =  *) . 

if  (mode.eq. 'Y')  then 
write (*, 1006) 

write (*, 1007)  infile 

write (*, 1008)  N 
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write (*, 1009)  M 

write (*, 1010)  Q 

write(*,1011)  nstop 
write (*, 1012)  xsorce 
if(N.eq.O)  write (*, 1131) 
endif 

C  WRITE  INTUT  PARAMETERS  N,M,Q, nstop, xsorce  INTO  FILE:  STATEQ.OUT. 

write (2, 1006) 

write (2, 1007)  infile 

write (2, 1008)  N 

write (2 ,1009)  M 

write (2, 1010)  Q 

write (2, 1011)  nstop 

write (2, 1012)  xsorce 

C  READ  SYSTEM  MATRICES  AND  WRITE  THEM  INTO  FILE:  STATEQ.OUT. 

if(N.eq.O)  then 
write (2, 1131) 

else 

write(2,1110)  'A(i, j) • 
do  30  15=1,  N 

read(l,1003)  (A(i, j) , j=l,N) 
write(2,1005)  (A(i, j) , j=l,N) 
30     continue 

write(2,1110)  'B(i,j) ' 
do  40  i=l,  N 

read(l,1004)  (B(i,j) ,  j=l,M) 
write(2,1005)  (B(i, j) , j=l,M) 
40     continue 

write(2,1110)  'C(i,j) • 
do  50  i=l,  Q 

read(l,1003)  (C(i, j) , j=l,N) 
write(2,1005)  (C(i, j) , j=l,N) 
50     continue 
endif 


write(2,1110)  !D(i,j)' 
do  54  i=l,  Q 
read(l,1004)  (D(i, j) , j=l,M) 
write(2,1005)  (D(i,j) ,j=l,M) 
54    continue 

C  READ  THE  INITIAL  CONDITION  VECTOR  v()  AND  WRITE  THE  VALUES 
C  INTO  FILE:  STATEQ.OUT. 
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if(N.gt.O)  then 
read(  1,1003)  (v(i),i=l,N) 
write (2, 1123) 
do  64  i=l,  N 

write(2,1133)  »v' ,  i,  v(i) 

vs(i,0)  =  v(i) 

64  continue 

C  FOR  TEST  MODE  WRITE  THE  VECTOR  v()  ONTO  THE  MONITOR. 

if (mode.eq. 'Y')  then 
write (*,*) 

pause  • >  Type  <CR>  to  continue.  < ■ 

write (*, 1123) 
do  65  i=l,  N 
write (*, 1133)  »v",  i,  v(i) 

65  continue 
endif 

endif 

C  FOR  xsorce  =  'F'  READ  THE  ARRAY  xs(i,j)  FROM  THE  INFJT  FILE. 
C  FOR  xsorce  =  'S1  CALL  'xgen'  TO  GENERATE  THE  ARRAY  xs(i, j) . 

if (xsorce. eq. ' F ' )  then 
do  70  j=0,  nstop 

read(l,1004)  (xs(i, j) ,i=l,M) 
70     continue 
else 
call  xgen(xs,M, nstop) 
endif 

C  COMPUTE  ITERATIVE  SOLUTION  TO  THE  SYSTEM  OF  EQUATIONS. 

call  itrate(N,M,Q,nstop,A,B,C,D,xs,vs,ys) 

C     FOR  EACH  VALUE  OF  ns  WRITE  THE  VALUES  OF  xs() ,   vs() ,   ys()    TO  THE 
C     OUTHJT  FILE:    STATEQ.OUT. 

write (2, 1129) 

do  100  ns=0,  nstop 
write (2, 1130)  ns 
write(2,1132)  »x' 
do  101  i=l,  M 

write(2,1133)  'x',  i,  xs(i,ns) 

101     continue 

if(N.gt.O)  then 
write (2 ,1132)  'v1 
do  102  i=l,  N 

write(2,1133)  'v1,  i,  vs(i,ns) 
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102  continue 
endif 

write (2, 1132)    'y' 
do  103  i=l,  Q 

write (2, 1133)    'y\    i,  ys(i,ns) 

103  continue 
100   continue 

C  WRITE  THE  SEQUENCES  xs,  vs,  ys  INTO  THE  FILE:  STATEQ.DAT. 

numplts  =  N  +  M  +  Q 

if (numplts.gt.9)  then 
nunplts  =  9 
N  =  9  -  M  -  Q 

endif 

write (3, 2000)  numplts 

do  55  i=l,  M 
write (3, 2001)  nstop+1 

write(3,2002)  ■ INPUT  SEQUENCE  x ' ,  char(48+i) ,  '  (ns) ' 
write(3,*)  'SAMPLE  #  (ns) • 
write(3,2003)  'x',  char(48+i) ,  '  (ns) • 
do  56  ns=0,  nstop 

jj  =  ns 

write(3,2010)  jj,  xs(i,ns) 

56  continue 
55    continue 

do  57  i=l,  N 
write(3,2001)  nstop+1 

write (3, 2002)  ' STATE  SEQUENCE  v ' ,  cnar(48+i) ,  '  (ns) • 
write (3,*)  "SAMPLE  #  (ns) • 
write(3,2003)  'v1,  char(48+i) ,  '  (ns) ' 
do  58  ns=0/  nstop 

jj  =  ns 

write(3,2010)  jj,  vs(i,ns) 

58  continue 

57  continue 

do  59  i=l,  Q 
write (3, 2001)  nstop+1 

write(3,2002)  ' OUTPUT  SEQUENCE  y • ,  char(48+i) ,  '  (ns) ' 
write(3,*)  'SAMPLE  #  (ns) • 
write(3,2003)  'y',  char(48+i) ,  '  (ns) ' 
do  60  ns=0,  nstop 
jj  =  ns 

write(3,2010)  jj,  ys(i,ns) 
60     continue 

59  continue 
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write (*, 1121) 

999  close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.O)  then 
write (*, 1116)  ierr 
endif 

C********  INHJT  FORMAT  ******** 

1001  format(i2,tll,il,t21,il) 

1002  f ormat (i2, til, al) 

1003  format (6 (f 10.0)) 

1004  f ormat (4 (f 10.0)) 

c******************************** 

1005  forrat(6(2X,el0.4)) 

1006  format {tie,////// ,  '  INHJT  PARAMETERS: • ,//) 

1007  format (t4, 'INPUT  DATA  SOURCE  FILE:  ',al2) 

1008  format (t4, 'THE  NUMBER  OF  STATES  IS:  N  =  ',i2) 

1009  format (t4, 'THE  NUMBER  OF  SYSTEM  INPUTS  IS:  M  =  ' ,il) 

1010  format (t4, 'THE  NUMBER  OF  SYSTEM  OUTPUTS  IS:  Q'  =  ' , il) 

1011  format (t4, 'THE  VAIUE  OF  nstop  IS:  nstop  =  >,i2) 

1012  format (t4, 'THE  VALUE  FOR  xsorce  IS:  ' ,al,/) 
1110  format (///,t4,  "THE  MATRIX  ' ,a6, *  IS: ' ,/) 

1115  0format(lx, 'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 
1'  MODE  ?    (Y/N)  <CR>  :  ' ,\,) 

1116  Of  ormat  (///,lx, 'ERROR  OPENING  INPUT  FILE,  PROGRAM  TERMINATED. ', 
1// , lx, 'ERROR  CODE: ' , i4 ,/////) 

1117  format (al) 

1118  Of ormat (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>.  ' ,/,  »  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE1 , 
2'  SAMPLE  DATA  ALREADY  STORED' ,/,'  IN  THE  FILE:  STATEQ.TST'  , 
3  '       TYPE:  STATEQ.TST  <CR>',// '  FILENAME:  ',\,) 

1119  format (al2) 

1121  0format(//, '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  STATEQ.OUT. ', 
1/,  '  PLOTTING  DATA  IS  STORED  IN  FILE:  STATEQ.DAT.  ') 

1123  f ormat (//,t4,  "THE  INITIAL  CONDITION  OF  THE  STATE  VECTOR  IS:  ',/,) 

1124  0 format (//, *  The  value  of  ',al,'  is  ',i2,'.  This  value  is  not 
1  allowed. ' ) 

1127  0format(//, '  The  value  of  nstop  is  ' ,i2, ' .  This  value  is  not 
1  allowed. ' ) 

1128  0format(//, '  The  value  of  xsorce  is  ',al, '.  This  value  is  not 
1  allowed. ' ) 

1129  f ormat (//, tl6, '  OUTPUT  DATA: ') 

1130  f ormat (//, t2 , 'FOR  ns  =  ' ,i2, »  THE  STATE  OF  THE  SYSTEM  IS: ') 

1131  format(/, '  THIS  SYSTEM  IS  NON-RECURSIVE  ! ! ! ') 

1132  format (t4, 'THE  VECTOR  ' ,al, •  is: ') 

1133  f ormat (t6,al,il,  '  =  \el2.6) 

2000  format (il) 

2001  format (i3) 
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2002  format (al7,al,a5) 

2003  format (al,al,a5) 

2010  format(el2.6,2x,el2.6) 

end 


SUBROUTINE:  itrate 


C  PURPOSE:   THIS  SUBROUTINE  COMMUTES  THE  ITERATIVE  SOLUTION  TO 

C  THE  DISCRETE,  STATE  MATRIX  SYSTEM  OF  EQUATIONS. 

C  THE  INPUTS  TO  THIS  SUBROUTINE  ARE  THE  DIMENSIONS 

C  N,M,Q,  THE  PARAMETER  nstop,  AND  THE  2 -DIMENSIONAL 

C  ARRAYS  A,  B,  C,  D,  xs,  AND  vs.   FOR  EACH  VALUE  OF  ns 

C  FROM  ns  =  0  TO  ns  =  nstop  THE  STATE  OF  THE  SYSTEM  vs 

C  IS  COMPUTED  AS  IS  THE  CORRESPONDING  OUTPUT  ARRAY  ys. 


subroutine  itrate (N,M,Q, nstop, A, B,C,D,xs,vs,ys) 

integer  Q 

real  A(10,10) ,  B(10,4),  C(4,10),  D(4,4) 

real  xs(4,0:99),  vs(10, 0:100) ,  ys(4,0:99) 

do  1  ns=0,  nstop 

C  FOR  ns  =  0  TO  nstop:  COMPUTE  THE  SOLUTION 

C  TO  THE  EQUATION:  vs(ns+l)  =  A*vs(ns)  +  B*xs(ns) . 

do  2  i=l,  N 
xi  =  0.0 

vs(i,ns+l)  =  0.0 
do  3  k=l,  M 

xi  =  xi  +  B(i,k)*xs(k,ns) 

3  continue 

do  4  j=l,  N 

vs(i,ns+l)  =  vs(i,ns+l)  +  A(i, j) *vs(j ,ns) 

4  continue 

vs(i,ns+l)  =  vs(i,ns+l)  +  xi 
2      continue 


C  COMPUTE  THE  SOLUTION  TO  THE  EQUATION:  ys(ns)  =  C*vs(ns)  +  D*xs(ns) . 

do  5  1=1,  Q 

ys(l,ns)  =  0.0 

xi  =  0.0 

do  6  k=l,  M 
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xi  =  xi  +  D(l,k)*xs(k,ns) 

6  continue 
do  7  j=l,  N 

ys(l,ns)  =  ys(l,ns)  +  C(l, j)*vs(j,ns) 

7  continue 

ys(l,ns)  —  ys(l,ns)  +  xi 
5      continue 

1     continue 

return 
end 


SUBROUTINE:  xgen 


C  HJRPOSE:   THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  VALUES  FOR 
C  THE  2-DIMENSIONAL  ARRAY  xs(i,j).   IF  xsorce  =  »S»  THE 

C  MAIN  PROGRAM  WILL  CALL  THIS  SUBROUTINE.  IF  xsorce  =  'F' 

C  THIS  SUBROUTINE  WILL  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  xgen(xs,M, nstop) 
real  xs(4,0:99) 

pi  =  4.0*atan(1.0) 
c*  ******  **************************************************************** 

C  DEVELOP  THE  ALGORITHM  FOR  GENERATING  VALUES  OF  XS(i,j)  IN  THIS 

C  SPACE.  THE  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77 

C  RULES  AND  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  , 

C  COS() , . . .   NOTE  THAT  THE  ROW  INDEX  i  DENOTES  THE  INPUT  SEQUENCE 

C  NUMBER  1  <=  i  <=  M,  AND  THE  INDEX  j  DENOTES  THE  VALUE  FOR  ns 

C  0  <=  ns  <=  nstop.   AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES 

C  FOR  THE  SEQUENCE  xs(l,ns)  IS: 

C 

C 

C***  EXAMPLE  *** 

C       do  88  ns=0,  nstop 

C         xs(l,ns)  =  10.0 

C  88     continue 

C*  ******** ************************************************************** 


return 
end 
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C  PLOTDAT.POR        VERSION:  2/03/88 

C 

C 

C  PURPOSE:   THIS  PROGRAM  IS  DESIGNED  TO  CREATE  UP  TO  NINE  TWO- 

C  DIMENSIONAL  (2-D)  PLOTS  BY  READING  DATA  FROM  AN  INPUT 

C  FILE  AND  PLOTTING  THE  DATA  ON  THE  MONITOR  SCREEN.   THE 

C  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  THE  SUBROUTINES 

C  scale  AND  gridd.  THE  MAIN  PROGRAM  READS  THE  DATA  FROM  THE 

C  INPUT  FILE,  AND  CREATES  THE  PLOT(S)  BY  MAKING  CALLS  TO 

C  THE  GRAPHMATICS  GRAPHICS  LIBRARY  (NOTE  1) .   SUBROUTINE 

C  scale  IS  GALLED  BY  THE  MAIN  PROGRAM  TO  SCALE  THE  DATA  SO 

C  AS  TO  OPTIMALLY  FILL  THE  SCREEN  WITH  EACH  PLOT.  SUBROUTINE 

C  gridd  IS  CALLED  BY  THE  MAIN  PROGRAM  IF  THE  USER  ELECTS  TO 

C  HAVE  A  GRID  OVERLAY  THE  PLOT.   THE  USER  HAS  THE  OPTION  OF 

C  PERFORMING  A  TRIAL  RUN  BY  PLOTTING  THE  DATA  PRESTORED  IN 

C  THE  FILE  ■PLOTDAT.TST1.  IT  IS  RECOMMENDED  THAT  FTRST^TIME 

C  USERS  MAKE  A  TRIAL  RUN  BY  SPECIFYING  THE  INPUT  FILE 

C  'PLOTDAT.TST1  WHEN  PROMPTED  FOR  THE  NAME  OF  THE  INPUT 

C  FILE.  THE  SPECIFIC  HARDWARE  REQUIREMENTS  NECESSARY  TO  RUN 

C  THE  PROGRAM  ARE  OUTLINED  BELOW.   ADDITIONALLY,  THE  INPUT 

C  FORMAT  REQUIREMENTS  ARE  PRESENTED  AND  A  SAMPLE  INPUT  FILE 

C  LISTING  IS  INCLUDED. 

C 

C  NOTE  1.    COPYRIGHT  1984,  MICROCOMPATIBLES  INC.,  SILVER  SPRINGS,  MD. 

C 

C 

C**********************   HARDWARE  REQUIREMENTS   ************************ 

C 
C 

C  THIS  PROGRAM  WAS  WRITTEN  FOR  PERSONAL  COMPUTERS  OUTFITTED  WITH  A 

C  COLOR  GRAPHICS  ADAPTER  (CGA)  CARD.   THE  MONITOR  SCREEN  IS  ASSUMED 

C  TO  BE  640  X  200  PIXELS.   FOR  HARDCOPY  PRINTOUTS  OF  THE  PLOTS  THE 

C  PROGRAM  WILL  DRIVE  A  DOT  MATRIX  PRINTER  IF  INSTALLED.   FOR 

C  COMPUTERS  OUTFITTED  WITH  OTHER  THAN  A  CGA  CARD  THE  PROGRAM  MAY  NOT 

C  OPERATE.   FOR  MACHINES  THAT  HAVE  AN  EGA  CARD  THE  PROGRAMS  WILL  NOT 

C  PRODUCE  A  HARDCOPY  PRINTOUT  OF  THE  PLOTS.   TO  OVERCOME  THIS 

C  LIMITATION,  USERS  SHOULD  TRY  EXECUTING  THE  "PRINT  SCREEN1  COMMAND. 

C 

C 

C******************************   INPUT   ******************************** 

C 

C 

C  UPON  EXECUTION  OF  THE  PROGRAM,  THE  USER  IS  PROMPTED  FOR  THE  NAME 

C  OF  THE  INPUT  FILE.  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN 

C  PROGRAM  FOLLOWING  THE  CAPTION:   ********  INPUT  FORMAT  ********. 

C  THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 
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FORMAT 

RESTRICTIONS 

il 

1  <=  numplts  <=  9 

i3 

2  <=  numpts  <=  999 

a40 

al4 

al4 

fl2.0,2X,fl2. 

.0 

NOTE  2 

C  LINE  #        ENTRIES 

C  1          numplts 

C  2          numpts 

C  3          title 

C  4          xlabl 

C  5          ylabl 

C  6  ...       x(),  y() 

C  NOTE  1 

C 

C  WHERE: 

C 

C  numplts  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  NUMBER  OF  PLOTS  TO 

C  BE  CREATED  BY  THE  PROGRAM.  FOR  EACH  PLOT  1,  . . . ,  numplts 

C  THE  INPUT  DATA  SPECIFIED  BELOW  MUST  OCCUR  IN  THE  INPUT 

C  FILE. 

C 

C  numpts  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  NUMBER  OF  POINTS  TO 

C  BE  READ  FROM  THE  INPUT  FILE,  FOR  A  GIVEN  PLOT,  AND 

C  PLOTTED. 

C 

C  title  =  A  CHARACTER  STRING  CONSISTING  OF  UP  TO  40  CHARACTERS. 

C  THIS  STRING  IS  PLACED  ABOVE  THE  PLOT. 

C 

C  xlabl  =  A  CHARACTER  STRING  CONSISTING  OF  UP  TO  14  CHARACTERS. 

C  THIS  STRING  IS  PLACED  BENEATH  THE  X-AXIS. 

C 

C  ylabl  =  A  CHARACTER  STRING  CONSISTING  OF  UP  TO  14  CHARACTERS. 

C  THIS  STRING  IS  PLACED  ADJACENT  TO  THE  Y-AXIS. 

C 

C  x()  y()  =  LINES  6. .  .6+numpts  MUST  EACH  CONTAIN  A  PAIR  OF  REAL 

C  NUMBERS  THAT  COMPRISE  THE  ORDINATE  x()  AND  ABSCISSA  y() 

C  VALUES  DEFINING  A  SINGLE  POINT  TO  BE  PLOTTED. 

C 

C  NOTE  1.   THE  DATA  REQUIRED  FOR  LINES  2  . . .  6+numpts  IS  REPEATED 

C  FOR  EACH  PLOT  (1. .  .numplts)  TO  BE  CREATED  BY  THE  PROGRAM. 

C 

C  NOTE  2.    THE  FORMAT  fl2.0  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 

C  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  12  COLUMNS 

C  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (E.G. , 

C  3146.2  =  3.1462E+03) . 

C 

C 

C*****************************   EXAMPLE   ******************************* 

C 

C 

C  PRINTED  BELOW  IS  A  LISTING  OF  ONE  OF  THE  TWO  EXAMPLES  INCLUDED  IN 

C  THE  INPUT  FILE  ' PLOTDAT . TST ' .   THE  ENTRIES  ON  EACH  LINE  SHOULD  BE 

C  COMPARED  TO  THE  FORMAT  REQUIREMENTS  LISTED  ABOVE. 

C 

C 
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C  1 

C  005 

C  title 

(UP  TO 

40  CHARS)  IS  PRINTED  HERE 

C  xlabl 

HERE 

C  ylabl 

HERE 

C  0.0 

0.0 

C  1.0 

1.0 

C  2.0 

2.0 

C  3.0 

3.0 

C  4.0 

4.0 

C 

C 

C***************************  MAIN  PROGRAM 

$STORAGE:2 

*************************** 


character  copy*l,  yscal*3,  xlabl*14,  ylabl*14,  scal*6 
character  title*40,  infile*12,  plot*l,  xx*l,  yy*l,  grid*l 
real  x(999) ,  y(999) ,  dum(4,999) 
integer  tmode,gmode 

C  DEFINE  SCREEN  SIZE:   640  x  200  PIXELS 

gmode  =  6 
tmode  =  2 

C  DEFAULT  PLOT  TYPE:  SOLID  BLACK  LINE,  POINTS  CONNECTED  BY  A  LINE. 

ndots  =  0 
icolor  =  3 
klrsym  =  3 

C  ENABLE  MINOR  TIC  MARKS  ON  AXES. 

C  ENABLE  MAJOR  TIC  MARKS  AND  LABEL  TO  AN  ACCURACY  OF  0.01. 

minorx  =  1 
minory  =  1 
label  =  -1 
ndec  =  2 

C  ENABLE  PLOT  AUTO-SCALING. 
C  y/x  RATIO  OF  PLOT  =  1.0. 
C  PLOT  ASPECT  RATIO  =1.2. 

io  =  0 
yx  =  1.0 
aspct  =1.2 
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C  DEFINE  CHARACTER  STRING  CONSTANTS. 

seal  =  'x  10**' 
XX  =  'x' 

yy  =  'y' 

C  CLEAR  SCREEN 

call  qclear(0,7) 

C  OPEN  INPUT  FILE  AND  READ  THE  VALUE  nurnplts. 

write (*, 111) 

read (*, 109)  infile 

open (unit=l , f ile=inf ile, status= ' old ' , iostat=ierr , err=999) 
read (1,100)  nurnplts 

C  PROMPT  USER  FOR  DESIRED  OPTIONS. 

do  5  i=l,  nurnplts 
data  x/999*0.0/,  y/999*0.0/ 
write (*, 107) 
read ( * , 101)  copy 
write (*, 112) 
read (*, 101)  grid 
write(*,108) 
read (*, 101)  plot 

C  READ  HEADER  DATA  FROM  INPUT  FILE. 

read ( 1 , 102 )  numpts 

read (1,104)  title 

read (1,105)  xlabl 

read (1,105)  ylabl 

C  FOR  PLOTS  OF  25  POINTS  OR  LESS,  PLOTTING  SYMBOL  =  '  +  ' . 

if (nurrpts.le.25)  then 

isymbol  =43 

itype  =  0 
else 

isymbol  =  -2 

itype  =  1 
endif 

C  SCALE  THE  INPUT  DATA. 

xmin  =  3.0e+38 
xmax  =  -3.0e+38 
ymin  =  3.0e+38 
ymax  =  -3.0e+38 

280 


do  10  k=l,  numpts 

read (1,106)  x(k) ,  y(k) 
xmax  =  max(x(k)  ,xmax) 
xmin  =  min(x(k)  ,xmin) 
ymax  =  max(y(k)  ,ymax) 
ymin  =  min(y(k)  ,ymin) 

10  continue 

if  (xmax.  eq.  xmin)  then 

write (*,*)  'Execution  halted. ' 

write(*,*)  "The  increment  of  the  ordinate  values  =  0.0. ■ 

stop  'Check  the  ordinate  values  in  the  input  file. ' 

endif 

if  ( (ymax. eq. 0.0)  .and.  (ymin. eq. 0.0) )  then 
write (*,*)  'For  the  current  plot,  the  maximum  and  minimum' 
write (*,*)  'abscissa  values  are:  ymax  =  ymin  =  0.0. ' 

write(*,*)  'Data  ignored  computing  next  plot.' 

goto  5 

endif 

call  scale (xmin, xmax, ixscal, xx) 
call  scale (ymin, ymax, iyscal,yy) 
scalx  =  real (ixscal) 
scaly  =  real(iyscal) 

xmajor  =  abs(xmax-xmin)/5.0  -  0.000001 
ymajor  =  abs(ymax-ymin)/5.0  -  0.000001 

do  11  k=l,  numpts 

x(k)  =  x(k)/(10.0**ixscal) 
y(k)  =  y(k)/(10.0**iyscal) 

11  continue 

C  BEGIN  GRAffllCS  SECTION. 

call  qsmode(gmode) 

call  qplot(  160 ,600, 30 ,180, xmin, xmax, ymin, ymax, xmin, ymin,  io,yx, 

&  aspct) 

call  qsetup (ndots , icolor , isymbol , klrsym) 

call  qptxt(40, title, icolor, 29, 24) 

call  qxaxis(xmin, xmax, xmaj or, minorx, label, ndec) 
call  qptxt ( 14 , xlabl , icolor, 40,0) 
call  qptxt (6, seal, icolor, 68,1) 
call  qqnput(576,8,scalx,0) 

cal 1  qyaxis ( ymin , ymax , yma j  or , minor/ , label , ndec ) 
call  qptxt ( 14 , ylabl , icolor , 0 , 12 ) 
call  qptxt (6, seal, icolor, 0,22) 
call  qqnput ( 28 , 176 , scaly , 0 ) 
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C  OVERLAY  GRID  ONTO  THE  PLOT  IF  SPECIFIED. 

if ( (grid.eq. 'Y') .or. (grid.eq. 'y') )  then 

call  gridd() 
endif 

C  PLOT  THE  POINTS  OF  THE  ARRAYS. 

call  qtabl(itype,nuirpts,x/y) 

C  PRINT  HARDCOPY  IF  SPECIFIED. 

if ( (copy.eq. 'y') .or. (copy.eq. 'Y') )  then 

call  qpscrn 
endif 

call  qinkey(iextend,key) 
call  qsmode(tmode) 

5    continue 

write (*,*)  'Plotting  completed,  returning  to  DOS.1 

999   close (unit=l) 

if (ierr.gt.O)  then 
write (*, 110)  infile,  ierr 
endif 

C********  INPUT  FORMAT  ******** 

100  format (il) 
102   format (i3) 

104  format (a40) 

105  format (al4) 

106  format(fl2.0,2x,fl2.0) 

C****************************** 

101  format (al) 

107  0  format  (lx, 'Do  you  want  a  hardcopy  of  the  plot  to  be' , 
1 '  generated  next  ?  Y/N  <CR> ' , \) 

108  0 format (lx, 'To  begin  the  plotting  or  to  exit  from  the' , 
1 '  plotting  enter  <CR> . ' , \) 

109  format (al2) 

110  format (lx, 'Error  opening  file:  ',al2,'  Error  code  =  ',i4) 

111  0 format (/////, lx, 'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 
1'  BY  <CR>. ' ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE1 , 
2'  SAMPLE  DATA  ALREADY  STORED',/,'  IN  THE  FILE:  PLOTDAT.TST' , 
3'     TYPE:  PLOTDAT.TST  <CR>«,/, '  FILENAME: ' ,\, ) 

112  format (lx, 'Do  you  want  a  grid  to  overlay  the  plot  ?  Y/N  <GR>',\) 

end 

282 


SUBROUTINE:  scale 


C  PURPOSE:   THIS  SUBROUTINE  FINDS  THE  LARGEST  INTEGER  POWER  OF  TEN 
C  OCCURRING  IN  EITHER  valmin  OR  valmax.  THE  RESULTING 

C  EXPONENT  IS  RETURNED  TO  THE  CALLING  PROGRAM  IN  iscal. 

C  THE  SUBROUTINE  ALSO  SCALES  valmin  AND  valmax  BEFORE 

C  RETURNING  THESE  VALUES  TO  THE  MAIN  PROGRAM. 


subroutine  scale  (valmin ,  valmax ,  iscal ,  c) 
character  c*l 

iscal  =  0 
argl  =0.0 
arg2  =0.0 

C  FIND  THE  LARGEST  INTEGER  POWER  OF  10  IN  THE  SEQUENCE. 

if (valmax. ne. 0.0)  then 
argl  =  loglO (abs (valmax) ) 
endif 

if (valmin. ne. 0.0)  then 
arg2  =  loglO (abs (valmin) ) 
endif 

iscal  =  int (max ( argl , arg2 ) ) 

C  SCALE  THE  MAXIMUM  AND  MINIMUM  VALUES  OF  THE  SEQUENCE. 

valmin  =  valmin/ (10. 0**iscal) 
valmax  =  valmax/ (10.0** iscal) 

C  CREATE  A  BUFFER  SPACE  FOR  THE  ABSCISSA  VALUES  OF  THE  PLOT. 

if  (c.eq.  'y1 )  then 

if  ( (valmin. It. 0.0)  .and.  (valmax. It. 0.0) )  valmax  =  0.0 
if ( (valmin. gt. 0.0) .and. (valmax. gt. 0.0) )  vairnin  =  0.0 
tempmin  =  anint(-1.04-valmin) 
tempmax  =  anint(1.0+valmax) 

if  (valmin. ne.  0.0)  then 

2  if  (abs  (valmin)  -  0.  l*abs  (tempmin) )  3,4,4 

3  tempmin  =  .l*tempmin 
goto  2 

4  valmin  =  valmin  +  .l*tempmin 
endif 

if  (valmax.  ne.  0.0)  then 

5  if (abs (valmax)  -  0 . l*abs (tempmax) )  6,7,7 
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6        tempmax  =  .  l*teinpniax 
go  to  5 

valmax  =  valmax  +  . l*tempmax 
endif 
endif 

return 
end 


SUBROUTINE:  gridd 


C  PURPOSE:   THIS  SUBROUTINE  IS  CALLED  BY  THE  MAIN  PROGRAM  TO  CREATE 
C  A  GRID  OVERLAY  CONSISTING  OF  BOTH  HORIZONTAL  AND  VERTICAL 

C  DASHED  LINES  EXTENDING  FROM  THE  MAJOR  TIC  MARKS  OF  THE 

C  A.mJS. 


subroutine  gridd () 
C  CREATE  HORIZONTAL  DASHED  LINES  AT  THE  MAJOR  TIC  MARKS  OF  THE  PLOT. 

do  500  i=l,  5 

ii  =  29  +  30*i 

call  qdash(5,160,ii,600,ii,3) 

500  continue 

C  CREATE  VERTICAL  DASHED  LINES  AT  THE  MAJOR  TIC  MARKS  OF  THE  PLOT. 

do  501  j=l,  5 
jj  =  159  +  88*j 
call  gdash(7,jj, 30, jj,  179,3) 

501  continue 

return 
end 
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